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ABSTRACT 


This  paper  describes  an  algorithm  for  scanning  commands 
of  *  specific  query  lanquaqe  fcr  a  data  management  system. 
The  commands  include  relational,  arithmetic  assignment,  and 
Boolean  expressions.  The  alqorithm  accepts  the  expressions 
in  conventional  infix  notation,  transforms  them  into  postfix 
notation,  then  into  an  efficient  set  of  computing  s*eps 
known  as  ordered  triples.  Structured  proqrammina  is  used  in 
that  extensive,  indented  comments  form  the  structure  and 
FORTRAN  code  carries  out  the  instructions  of  the  comments.  > 
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CHAPTER  I 


INTPO  CUCT  10 V 

Triin  inq  personnel  tc  perform  thMr  assijnej  'In.  >  is 
a  ne ver-endinq  responsibility  cf  nna-pis.  ?jrjocnM  mi 
duties  are  both  continually  chanainq.  cven  if  *h<^  p*::rnnu^  1 
and  the  basic  work  to  te  acccmnlir^-d  could  b-  ccnsi  l'i°i  to 
bo  constant,  the  approach  t  c  accomplish  r )  «r  work  a  r.  1  -  h-» 
detailed  tactics  used  will  virv  as  individuals  seek  nsi^r 
and  better  methods  tc  make  f h<=ir  work  more  ri-^arin, 

^aniaers  and  supervisors  are  also  r  :*sror.s:  f  l*1  "cr  charge  as 
th  ?  v  Mon  1  their  personality  into  f  hp  orqaniz  a  t  i  on  and 
search  for  more  efficient,  mere  productive,  and  less 
exnonsive  means  to  accomplish  *he  aoal. 

One  siqnificant  aspect  of  the  continual  chanqe  in 
personnel  and  worx  is  the  appropriate  traininq  they  reed  to 
properly  perform  the  duty.  Certainly  th-^y  roust  be 
sufficiently  trained  tc  achieve  a  certain  level  of 
proficiency  to  make  them  productive  in  the  job.  However, 
over  training  or  training  in  tasks  which  they  do  not  perform 
is  in  unnecessary  expense  and  thus  should  be  avoided  if  at 
all  possible.  To  optimize  the  benef it-t rai ni nq  ratio,  a 
raanaqer  should  expend  resources  to  train  personnel  only  hii 


those  “  which  they  will  actually  perform  or.  "he  ion. 

Optimized  training  appears  ideal  when  ronsi-l*3:  i  n  :  one 
person  and  one  iob  which  can  be  specifically  lefir.^d  o:  1  ** 
numerous  individuals  are  performing  ^xae*ly  f  no  sam*'  ui*i-s. 
This  ileal  situation  seldom  occurs  in  the  real  world.  A 
more  plausible  situation  within  a  jive r;  organization  i-c  "o: 
a  number  of  the  employees  tc  perform  identical  or  siirilar 
ta  s k  s  for  a  certain  portion  of  their  w o  l  k  -  w  ee  k  f  b  u t  c  r  1  y  i 
few  employees  would  be  doing  tasks  which  are  identical  or 
sufficiently  similar  such  that  the  same  training  curriculum 
would  be  suitable* 

The  next  logical  step  in  analyzing  training 
ro  juirement s  is  an  effort  to  identify ,  catoaorize#  and  qroun 
th°  tasks  performed.  As  an  example ,  suppose  ^mploy^^  A 
span  is  50%  of  his  time  performing  task  1,  30%  perfomim  task 

?,  and  20 Z  perfoming  task  1.  Employee  2*5  time  is 
distributed  as  30%  on  task  1 ,  60%  on  *ask  3,  and  10%  on  "*ark 
4  which  employee  A  did  not  perform.  For  employee  C,  assume 
a  distribution  of  40*  cn  task  2,  20*  on  task  3,  and  4C*  on 
task  4.  The  ovrrlur  of  duties  is  quite  evident  and 
considering  economy  of  scale,  all  employees  should  be 
trained  together  instead  of  a  Pairing  program  being 
customized  for  each  of  them.  On  the  ether  hand,  trainin'! 
employee  A  on  task  4  is  a  wasted  effort.  To  obtain  maximum 
return  for  training  resources  expended,  *he  employees  shoul: 


— a 


mumand mamm 


be  grouped  for  •’he  various  f  cu:un  i  sessioi \r.*  -n:pioy^  A 

an  1  ?  would  be  f  :air,€  i  on  t  ask  1,  A  an!  C  or  *:a.i<  ,  *,  9 
an!  C  on  t  ask  and  A  and  C  on  task  a.  Kit:,  is  inu;;i:.  3 
♦■ho  employees  ire  trained  on  c  u  1  v  ♦’bore  •■asks  whir:!.  *  r  -  y 
will  tie  performing  (no  traininq  is  washed)  an!  the  nui.ii-  : 
classes  are  as  1  a  r  i  e  as  possible  (or  feasible)  lor  «coi.c;aic 
con  si  derat i ons. 

Expandin'!  "‘he  example  to  a  lario  organization  of 
several  hundred  employees  performing  various  f  asks  car: 
provide  considerable  savings  if  the  job  ar.alvsis  is  properly 
conducted.  The  same  information  used  to  ccr.luct  fho  job 
analysis  may  also  be  quite  beneficial  for  preparing  ^oh 
dvic r iov ion s,  reassigning  tasks  to  employees,  i^iuciru  time 
con  sum  in  q  tasks,  identifyinq  problem  areas,  and  ir:  general 
imnrovinq  the  overall  effectiveness  of  or  ganiza*  ion . 

This  is  where  occupational  analysis  car.  be  effectively 
use!.  occupational  analysis  is  or^  means  cf  collecting  da^a 
about  the  tasks  performed  within  an  organization.  T  * 
includes  oollectini  infermatien  about  the  job  from  * he 
ueoole,  thoir  supervisors,  and  others.  Occupational 
analysis  is  w^ll  accept  !  throughout  ♦'he  world  and  is  us?d 
extensively  by  military  services,  civilian  qo vornm^n t s , 
universities,  and  industry  (2). 

Tn  lathering  tie  information,  respondents  arp  ack*_u  to 
indicate  on  a  relative  scale  how  much  timr  they  spenl 


pourorminj  Uf  ffrMit  lis*ai  >n  a  cu*1  s  r  i  or: ::  i  1  : 

Th  n:  :  ^spoaovo  a r o  ptccoss^'!  to  provide  a  5  *■  :c^n"a  j 
rim*4  .i-*v  o  t  ._•  d  ♦  o  t  h  -*  v  irio  tj  s  task",  I  n  a  1  d  1  f  i  o  *  o  *■  "  - 
roh^t  i  i n  f  > r :n a  *- 1  o r  ,  history  ^  n  1  s*_  c c r.  i  a r  y  ■  i  a  t ^  i . s  j  f  * 
.M  *■  h- r-»  1  #  a  id  1:1  *  h r o u  .4  h  resncns^  :';  *  a  hrrft  1.  portion:. 
Hi  if 'U'v  iat  a  will  usually  inclulo  -iJt,  s*-x,  r  a  c  •  ,  ski1,! 

?ri  J n c ij  i n  t h  r  ;; os  i  t  i e r. ,  a  n  1  :>  i  r;  i  1  ^  1  ir.fruoat  i o n  • 
d  -  corlarv  la  t  a  1  ;  n  o  1 »  a  1 1  y  1  -  la  t  o  i  ^  o  r.  0  w  it;  orunt  •-  a  c 
is  or  how  aid  oh  t.rainim  is  r->:;ui  r^  ;  f  01  oacr.  rash, 
i  a  a  c)lUc*ol  is  i  n  -a  quant  ifi*»l  f  c  r  r  o  1  c  a  n  be-  r  tali  1 
con  v  •  ?  r  t  -» ]  *  0  n  a  n  *  i  f  i  •?  d  f  c  r  m .  It  s . .  o  u  I  a  l  r  ne  !  r 

1  a  r  1  s  a  m  t>  1  *  o  1  -  scon  lent  s  to  n  1  r.  i  r  i  z  0  *  1  r  j  f  f  c  t  0  : 
p^rt urna  Vi  ons.  It  is  ir  proc  0  ►o  1  r.  1  and  analysis  cf 

r < :•:  s  y>  o  n  s •'  r  h  a  t  t  a  e  c  c.  :n  p  u  t  e  r  flays  a  s  i  ;  r; :  f  i  'ar>  r  o  1  e  . 

The  Air  Fore-  has  K  ci.  one  of  e  pioneers  1:. 
ocniprior.  i  i  a  u  a  i  y  s  i  3  •  r  n  the  -  a  r  1  v  sixties,  t  -  y  he  :  a 
0- vo  loo  in  4  t^voral  ccmputer  prcirams  to  do  t.h  »  analysis 
s y  s t  o n  w h  i  c  :i  h  a s  b e c c m 0  known  a s.  *- h ^  c c m r  r e h  o r.siv*5 
Orcu  pa  t  ion.d  1  Data  Analysis  nrogram  (CCDAP).  line-  *ho 
be  a  i  n  n  i  n  7  of  C  )  D  A  P  an  1  as  more  o  x  p  o  r  i  e  r.  c:  ^  in  cccupa4  i^r, 
analysis  was  a  a  i  n  c  d  #  several  projnams  have  l  ^  on  a  i  d  -  I  4 
system  to  incLMse  its  capability.  IJ  r  f  or  t  ur.a  te  1  y  ,  no 

overall  system  design  existed  and  iocuir^n  t  a  +  i  on  1  ^  t 

much  to  be  desired.  A?  miiht  bo  expected  and  too  o*tcp 
ox  po  r  ie>nc  ad  ,  tms  evcluticnary  process  result  j 


in  a 


which  is  lirficult  tc  modify  and  not  totally  respon  *,i  v*-  ♦ 
th>'  n^ls  of  ♦■he  us^rs.  Realizing  M:<-  limitat  i  cue  of  vk- 
oririnal  sy^t^iii,  th<~  Occupational  n%3'-arch  Projr  it  ot  ?*-  x 
A  ft  'l  fIni  varsity  is  u  rder  contract  with  ♦  h  ^  *J.r>.  Navy  *  2 
r^w:it>  the  pr  a  q  r  1  m  s .  Following  *  u  «  i  r  i  f  i  a  1  analysis  of 
sys*  'in  and  through  consultation  with  th*>  Navy,  c^h^r 
military  .i^rvi^ps,  an  1  c+’hor  CODA?  user  j,  it  war  air--!  t 
^n  entirely  new  design  cf  portion??  of  t system  woul  1  ;*r 
P ref  arable  tc  just  rewriting  listing  proa  rams,  T  h  •'  new 
lesim  should  emphasize  documentation,  un  deist  an  la  b  i  1  ir  v  # 
inn \i  f  i  i  b  il  i  t  y ,  ar.d  t.  tan  spor  tabilit  /  w  h  i  1  ^  providing 
incr^as*!  lata  manipulation  capability  \+  a  decrease  in  c 
an  i  r  i;ne  involved. 


The  data  ntherinc,  editing,  sorting,  an  1  creating  : 
the  initial  lata  files  wore  include  1  in  the  rewrite  rnr^i 
of  the  sys^m.  Th«  portion  which  is  be  in  a  l<»  designed 


i  n  0 1  u  1  e  s 

a  con  sol  i  d  a  t.  i c  r  of 

rrcgr 

a  m  5  which 

will  maul  pul  it 

the  lata 

in  the  files.  Th¬ 

lata 

ir  a  n  i  p  u  1  a  t 

ion  programs  wi 

be  based 

en  an  interpreter 

which 

processc s 

statements  of 

newly  i ^signed  CO  CAP  Lanquaje, 

With  this  introduction  tc  job  analysis  and  the  CODAF 
Lewrite  oroject,  vhe  remainder  of  this  paper  will  focus  c 
tha  design  of  a  small  segment  cf  the  CODAP  programs.  An 
interpreter  to  manipulate  the  CODAP  data  base  is  discuss*- 


in  chapter  2 


Chanter  3  delineates  t  he  overall  iflrion 


CHAPTER  IT 


1  f-  E  INTFFP^ETEP 

T  h  i ec i s i on  *  o  r e  d <5 s i  qn  t h 0  p ortion  of  *  h c  s y s  t  0 :i> 
which  manipulates  the  da^a  was  based  in  part  an  1  i*  sire  to 
provide  a  more  n  a t  1  r  a  1 ,  easier  * o  use  ^ysteir.  The  0  1  i  a  i  r: a  1 
CODAP  system  was  quite  tedious  sinc^  users,  were  required  to 
indicate  th^ir  lesired  data  manipulation  action  by  rlacinj 
numbers  in  specified  card  columns.  This  procedure  was  .-slow 
and  quite  prone  to  inducing  errors.  To  overcome  *his  pro bio 
it  was  decided  to  use  free  ^orrra*,  easily  understandable 
En  1 1  ish-  li  ke  coir  man  ds. 

T  h 0  Statistical  Analysis  System  ( 5  A  S )  1 a  n  g  u  a  q  p  nearly 
satisfied  the  above  requirements  but  was  r.c*  totally  satis¬ 
factory  (7).  Seme  of  the  actions  in  cccupaticnal  analysis 
are  quite  unique.  Consequently  a  new  lanauaae,  the  CODAP 
lanquaq^,  was  developed  to  enhance  the  usefulness  of  the 
system.  The  new  COCAP  lanquaqe  is  desiqned  to  permi*  conver; 
lent  manipulation  of  the  -job  analysis  data.  The  which 

is  loqically  stored  in  table  forma*,  can  be  manipulated  by 
either  rows  or  columns  with  nearly  equal  ease. 

Sinc^  the  purpose  of  this  paper  is  to  present  the  desim 
and  implementation  cf  only  a  portion  of  the  CODAP  in  t-»r  pr<st  e 


the  language  i;i  not  covered  in  i^Mil 


Orly  ♦■  hose  f.or  ticm.; 
of  the  language  applicable  to  *his  oarer  are  explained.  A 
fall  description  of  the  CODAP  language  aiay  be  found  ir  the 
CODA?  (Inerts  Manual  (5). 

This  paper  is  limited  to  the  d ->si  g n  ar.d  i  in  i  lom-  r  +  a  t  ior. 
of  modules  which  will  handle  the  "full  a ssiqnment  clause" 
and  the  "Boolean  expression".  The  syntax  graphs  which  ilia 
tnt^  these  two  commands  are  in  appendix  1.  T1  -  lin^s  i.ndi 
cate  the  possible  paths  which  may  be  followed.  \  divcrgenc 
of  lines  means  either  path  is  possible.  Circles  and  ovals 
denote  fhe  enclosed  expression  is  +o  h°  included  in  the 
command  string  exactly  as  specified. 

As  an  example,  consider  the  full  ass i arm on t  clause. 

Tt  may  consist  of  a  simple  assignment  clause  or  the 
IF-THEN-SLSE  expression  which  may  have  one  or  more  nested 
IF-THFNs,  but  only  one  ELSE-clause.  A  possible  full  assign 
men4'  clause,  as  expressed  in  the  COCAP  language,  might  be 
IF  Bill  =  d  THEN  Tom  ;=  S 
IF  Bill  =  4  ThEN  Tcm  :=  fs 

FLSE  Tcm  :=  1  'comment1. 

The  full  assignment  clause  is  the  magor  portion  cf  the 
CREATE  command  which  may  be  U£<=j  to  add  new  columns  cr  rows 
to  the  data  base.  The  "Bill  =  V*  portion  is  a  relational 
expression  which  is  tested  for  a  tru^  or  false  indication  * 


det^rmin^  which  assignment  clause  is  executed. 


Onlv  or.- 


assignment  clause  of  the  full  assignment  clause  will  be 
execu t^d  . 

A  typical  boolean  expression  for  selecting  i  sulco* 
of  the  CO  CAP  data  base  rriqht  be 

IN  31  .AND*  (  (T 1  <  =  3)  .OX.  (7 4  =  r)). 

Th »  "  IN  3 1 "  indicates  cnly  the  group  of  columns  included  lr. 
the  label  31  are  to  be  considered.  "NOT  IN"  is  an  *  1  to  r  na  t 
indicator  of  which  groups  are  to  be  excluded.  ”T1  <=  )" 

indicates  only  those  columns  where  the  ri  variable  is  less 
than  or  equal  to  three  will  be  accepted.  however,  zr.  the 
above  example,  if  the  T4  variable  is  five,  + L e  value  of  71 
may  be  greater  than  three  and  the  column  is  st  ill  considered 
The  relational  expressions  "T1  <=  3"  and  "T4  =  V  arc  the 
operands  for  *he  ".OR.1'  logical  operator.  Th°  operands  foi 
the  ".AND."  operator  are  "IN  Gl"  in  1  the  interim  resul^  of 
(  (T  1  <=  3)  .OP  .  (T4  =  h)  )  . 

It  is  possible  tc  structure  the  source  lar.quane  for 
direct  execution.  However,  such  a  procedure  does  restrict 
the  flexibility  in  fermatim  the  source  language  and  reduces 
the  efficiency  of  proqram  execution.  For  complex  source 
languages  which  have  a  somewhat  complicated  goal  it  is  coinino 
practice  to  first  trdnsxate  the  source  language  into  an 
internal  form  which  is  easier  to  handle  mechanically.  In 
most  internal  forms,  the  operators  normally  appear  in  the 


ord-»r  in  which  *hey  are  to  be  executed  (  })  .  Long  coir  man  d 
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strinqs  or  sent  prices  are  broken  down  into  short  phrases  of  * 
sinjl^  operator  and  the  necessary  operand  (s).  The  p LO]nm 
which  toes  the  translation  places  t he  phrases  in  the  orop-L 
order  for  execution.  Thus  the  execution  proa  ram  lo<=:  not 
nee  i  to  be  concerned  with  precedence  of  operators,  but  nas 
the  simplified  task  cf  executing  in  ord^r  of  sequence,  one 
at  a  time • 

Arithmetic  and  Boclean  expressions,  as  ccmmonlv  written, 
can  be  quite  complex  for  a  computer  to  process.  The  rcrmal 
expressions  used  are  known  as  "infix  notation"  since  the 
binary  ooerators  are  placed  between  the  two  operands  cn  which 
they  are  to  operate,  Unary  operators  are  placed  immediately 
in  front  of  their  respective  operand.  To  establish  a  single, 
correct  sequence  of  execution  cf  t h operators,  the  cnera- 
tors  ar<-  generally  assigned  a  precedence--those  of  a  higher 
precedence  being  executed  before  those  of  a  lower  preced-nce. 
The  precedence  execution  order  can  b^  modified  by  the  use 
parentheses  executing  the  expression  enclosed  by  parentheses 
before  the  operatoions  outside  *he  parentheses. 

Human  beings  find  the  infix  notation  quite  understanda¬ 
ble  since  it  is  the  mos*  commonly  used  system  and  they  have 
generally  been  exposed  to  it  since  their  earliest  arithmetic 
classes.  The  ability  to  scan  and  comprehend  roor-=»  than  on-* 
symbol  at  a  time  coupled  wi*h  the  free  use  of  pa  r  or.  *  h  »s  is , 


sometimes  added  merely  to  improve  clarity,  aids  in  thr 


com pre'nens ion  of  this  notation*  However,  a  mechanical 
device,  or  electronic  in  the  cas^>  of  a  computer,  do^s  not 
possess  the  same  capability  as  humans  and  M.us  does  rcf 
respond  as  well  to  infix  notation.  A  computer  is  esscntiall 
restricted  to  considering  a  single  symbol  at  a  time  and  con  - 
paring  that  symbol  with  another*  Further,  parentheses  which 
humans  add  for  clarity  are  an  unnecessary  added  symbol  to 
the  computer,  requiring  additional  processing  time.  Conse¬ 
quently,  to  aid  the  computer,  infix  expressions  are  often 
translated  into  another  form  such  as  suffix  or  {.os^ix 
notation. 

Postfix  notation  will  be  used  in  th*  CODAP  interpreter. 
Parentheses  are  not  required  in  postfix  notation  and  opera¬ 
tors  are  placed  in  exactly  the-  order  in  which  they  arc  tc  b* 
executed.  This  eliminates  *he  possible  confusion  o*  opera¬ 
tor  precedence  and  reduces  the  number  of  symbols  which  the 
coraout^r  must  process.  As  examples,  A  +  B  would  be  written 
as  A  8*  in  postfix  notation;  and  A  +  B  *  C  as  ABC**.  it 
should  also  be  noted  that  the  varibles  and  constant?:  appear 
in  exactly  the  same  order  in  both  infix  ard  postfix  nota¬ 
tion,  anl  in  posttix  the  operands  appear  immediately  to  th^ 
left  of  the  operators. 

Once  an  expression  has  been  converted  to  postfix  nota¬ 
tion,  a  second  conversion  is  easily  accomplished  *  o  achieve 
a  convenient  form  for  a  single  binary  operator--!  triple. 


Th^  triple  may  be  expressed  as 

( <Ope ra t or > ,  COperand  1>,  <C  per  and  2>) 
where  COperand  1>  and  CCperand  2>  specify  the  armaments  fo: 
the  operator.  As  an  example,  A  ♦  13  miqht  be  repress  1  by 

t ,  A,  B 

and  A  *  3  ♦  C  *  D  ccuLd  be  represented  by  the  se']U°nco 

1.  *,  A,  D 

2.  *,  C,  D 

3#  +  t  (1)#  (2). 

Th^  numbers  in  parentheses  indicate  that  operand  is  ^he 
interim  result  obtained  from  the  triple  row  illustrated  (s? 
reference  3).  Interim  results  are  of^en  pushed  onto  a  sfac 
then  Dopof 1  from  the  stack  whenever  required  in  a  succeed  in 
triple.  For  unary  operators,  cne  of  th°  operand  positions 
is  left  blank.  The  significance  of  ordered  triples  is  that 
the  triples  appear  in  the  sequence  in  which  they  arc  *o  be 
executrU  Onc^  an  expression  is  in  ordered  triple  fcrm, 
it  can  be  efficiently  executed  numerous  tim»s  by  a  computer 
The  objective  of  the  modulo  desiqns  discussed  in  this 
paoer  is  to  accept  the  numerical  tokens  of  normal  ir.fix 
notation  which  are  the  Fnql i sh-1 i commands  as  input. 

These  commands  are  converted  to  postfix  notation  wher« 
necessary  for  easier  prccessinq.  Th^  tokens  arc  then 
placed  in  an  ordered  triple  array  which  is  the  output  from 
the  modules.  Chapter  3  discusses  the  conside  ra  t  i  on  r.  of 


qcod  d^siqn  which  will  bp  applied  in  thp  dftsiqn  of  thcso 
rood  u 1  os. 


CHAPTER  III 


DESIGN  CONSIDERATIONS 

Several  factors  should  be  given  careful  consideration 
when  beginning  the  design  of  c  c  m  d  u  *  o  r  software*  Th e  soft¬ 
ware  should  bo  understandable,  mo dif iable,  r^liabl^,  us^^ul 
transport!  ole,  and  efficient.  (In  iers  t  an  iable  cede  can  be 
produced  by  qood  documentation  techniques.  The  locumenta- 
tion  should  bo  adequate  to  free*  th  *  needs  of  the  user  and 
those  responsible  for  maintaining  *-he  software.  I*  shoull 
be  standardized  and  uniform,  Ex* or nal  documentation  should 
provide  an  overall  design  of  th**  program  modules  and  th^ 
relationship  with  calling  and  called  modules.  In  line  com¬ 
ments  should  bo  sufficient  to  ]  1q^  reasonably  kncwle  i qeaol 
programmers  to  easily  fellow  *  h  e  lojic  and  unlerstand  the 
cole.  The  comments  in  the  programs  produced  for  this  repor 
sot  the  structure  of  the  main  program  lcqic  and  the  code 
carries  out  the  logic  cf  the  comments. 

Software  which  is  understandable  has  a  head  star*  on 
being  modifiable.  if  it  can  be  understood ,  it  cui  usually 
be  modified.  Additionally,  tricky  code  shoull  b^  avoided. 
I*  shoull  b a  modularized,  each  module  performing  a  single 
function.  Thus  any  necessary  changes  will  affect  +Y* 


1r: 

fewest  number  o f  lines  c t  cu^p  possible*  Subroutines  should 
be  completely  contained  on  one  pag^  tc  allow  in  *msv  overall 
v  i  o  w  .  Subroutines  developed  for  this  project  have  h  c  ■->  r. 
limine!  to  less  than  ICC  lines  of  c od e  which  s h c u 1 1  he 
com  p  rebuild  a  b  le  any  programmer  familiar  with  rhe 

proa rarumi n g  lan g ua g e • 

To  be  reliable ,  the  code  should  respond  appropriately 
with  anv  and  all  of  the  possible  range  of  input  da*  a  which 
if  might  encounter.  The  command  string  which  is  *o  he 
provided  to  the  mo  lules  under  consi  i-rat  ior.  will  h  a  v  c  b . .  r. 
previously  chocked  tor  syntax  errors.  Consequently  f^>w 
routines  have  been  included  for  handling  erroneous  input. 
This  also  conforms  with  the  specif icat ions  provided. 
Disallowing  syntax  errors,  reliability  can  be  check’d  by 
testing  t he  range  of  Dossi bi 1 i *es  of  acceptable  inpu*. 
Although  not  all  possible  combinations  can  reasonably  be 
tested,  sufficient  variations  of  input  should  be  encountered 
to  cause  each  part  cf  the  code  to  be  exercise  1.  Such  a 
procedure  should  provide  a  high  degree  of  reliability. 

To  be  efficient,  the  code  should  execute  in  minimal 
computer  time.  Prog  Lamming  shortcuts  and  machine  dependent 
techniques  are  methods  used  to  improve  efficiency.  loth 
are  contrary  to  the  qoals  of  understandable,  modifiable, 
and  transportable.  Consequently  seme  loss  in  efficiency 
will  be  accepted  to  enhance  ether  goals. 
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Transportability  is  of  era  jor  concern  for  the  C^EAi 
pro  7  rams.  They  will  be  jse  ]  by  various  aqenoios  on  numerous 
makes  of  computers  and  should  perform  well  cn  all  orcassions. 
To  enhance  t  Transportability  standard  ANSI  FORTRAN  has  been 
selectei  as  the  lanquaae  for  all  modules.  It  is  com  ion 
enouqh  fhdt  any  facility  of  re son able  sire  would  likely 
already  have,  or  can  reasonably  acquire,  tie  necessary 
FORTRAN  compiler. 

The  last  and  probably  the  most  importer. t  goal  discussei 
is  usefulness.  To  be  useful,  cede  must  perform  t b e> 

desired  process  for  which  it  was  produced.  This  is  v^rrfici 
by  a  rigorous  test  effort,  inputinq  test  data  and  carefully 
checking  the  output  for  the  intend?!  results.  The  system 
will  be  useful  to  mere  facilities  by  usinq  a  common  proqram- 
minq  laniua^c,  FORTRAN,  as  discussed  with  transportability. 

Structured  proqramxinq  has  been  used  expensively 
throughout.  A  top-down  approach  was  taken  to  break  the 
problem  in  to  manaqeable  portions  and  to  enhance  the  coals  of 
understandable,  reliable,  and  modifiable  code.  A  hierarchy 
chart  of  the  system  designed  can  b^  found  in  Fiqure  1.  The 
program  structure  could  have  been  improved  usinq  a  language 
with  structured  constructs,  such  as  FL/I  or  ALGCL.  However, 
FORTRAN  was  the  specified  language.  Therefore,  tc  provide 
as  much  structure  as  possible,  comments  are  plentiful  and 
structured  in  nature.  The  "if-then-else1*  construct  is  used 
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Figure  1.  Hierarchy  Chart 
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froguetiMy  *0  begin  He  ccm  nents  i:*..ior  i  i  r.«r  d  with  i  ■:*  c  r.  ■!  i - 
tional  statement.  In  lent  a  tier  is  loy  fc  f  nvi  i  ■  a 
visual  in  Herat  ion  of  Dlcck  structure  ana  :;ir.  ^  c  r 

i  f  - 1 h  en-el  so  construct.  Th^  comment  Mor:  i  of  ifn  oi  ;  r  :  :  :  — 
t K e  e n  d  o f  a  u  i  f - t  h e n -  <=  1  s e  h  1  c c .<  of  ccl;>.  A 1 1  h  o u  i :  a c  • 
an  approach  requires  an  abundan*  us--  of  JO  To.-:,  Hey  \i- 
t h o  only  ni e a n s  of  transferring  control  fox  a  c o r.  i i *  i r r. a  1 
construct  in  the  FORTRAN  language.  Usually  He  iC  H 
construct  should  b~  avoided  as  muen  as  possible  *  c  ^  iH 
code  easy  *  o  follow*  However  the  author  believes  He 
structure  of  the  cor  (rents  and  indentation  along  wiH  th* 
controlled  use  of  GO  TOs  has  resulted  in  a  well  structure  i 
an  1  quit-1  understandable  program  considering  He  1  in  i  t  1 1  ior.  • 
ot  t.r,p  FORTRAN  larouaqe. 

Based  on  the  overview  of  t he  l-siqn  philosiphy,  chapter  -* 
will  describe  in  detail  t  h  e  a  1  n  >  r  i  * h  ms  usfd •  It  will  u  -  sc i be 


logic  usM  to  transform  command  scrims  into  orders 1  triples, 


CH  APT":?  TV 


DESCRIPTION  OF  AL10WI  rH“55 

Tn“  purpose  of  this  project  wi;  ~o  lesion  a:;1 
modules  to  per:  orai  ^  wc  se  pa  rite  rurif:4,  ior.o,  H^'r  *h  -  t»ili 
di'Si  4  nmont.  ciau.se  and  Boolean  ?xor-:-  sic:*  i  r.  --  ic  1  to  S: 
t r  a s f o r ;n e  i  into  t  h t  internal  f  o r  m  o t  o  r  1 r  o  1  t  r  i  n  1  1  <■  f  v > : 
efficient  execution.  Although  the  *  w  o  ouMnv:  t  ->  r  *-  4 ::  :  <  ■ 4 

the  si?tQ  f  o  r  tn  a  t  ,  separate  p  r  oc  3  e  s  w  »•  r  ^  .1 1  r  i  r  f  .i  si  r.  c  <-  4  r  v 

tnojts  are  not  sufficiently  similar.  This  is  also  i  r.  ^<r>  - 
men4  with  the  good  software  engineering  tf  chm  7  u  -  s  rt  cri^ 
function  per  module  which  enhances  prcjrarr  un  l^r  st  an  ca  l  1  i  i  4  v 
Th  •*  urogams  to  process  the  full  ars  ignment  clause  w-r  ■  i n  v  I 
oo‘H  first.  These  were  used  as  a  star  fine  point  for  develop 
in  4  the  p:oir  inis  which  process  the  Boolean  expressions, 

Full  Assignment  Clause 

Th^  full  assignment  clause,  as  discussed  in  chapter  2 , 
consists  of  an  IF-THEN-FL5E  clause.  The  IF  portion  is 
optioml  and  if  present  is  composed  of  a  simple  relational 
expression.  The  objects  of  THEN  and  F LS ^  will  be  an 
arithmetic  expression  whose  value  is  computed  and  assigned 
to  a  viriable.  The  syntax  nraph  appears  in  appendix  1. 


T  h  ^  full  a  ssi  -j  n  in  ^  n  +  claus°  ^ximrl*-  j>u  s^n^-  1  i  :i  chart. : 
2  is  ren^it^J  here  for  clarity. 

IF  Lilli  =  3  THEN  Torn  :=  r> 

IF  3ill  =  4  TFFN  Terr  :=  A 

ELSE  Terr  :  r  1  '  cc  amen*  •  . 

When  transformed  to  ordered  triples  this  expression  becomes 
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are  subtracted.  The  execution  phase  will  push  *he  interim 
result  onto  a  stack  which  may  be  subsequently  retrieved  with 
the  F  OP  command.  Immediately  followin'?  the  r^la*ional  tripl- 
is  a  conditional  branch  to  the  nex*  assignment  clause  to  be 
considered  should  the  relational  expression  be  false.  Aft^r 
each  assignment  clause  is  an  unconditional  branch  to  *he 
end  of  the  full  assignment  clause ,  since  only  or.Q  of  th*- 
assignments  is  to  be  executed. 

When  a  full  assignment  clause  is  vo  be  processed,  the 
appropriate  tokens  will  bo  parsed  by  an  array  p aramQfei'  to 
subroutine  CTPrpS#  the  control  module  for  creating  triples. 
The  flow  char4',  for  CTRIF5  appear*  in  Figure  2.  CTPTFS  check. 
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Figure  2,  Flow  Chart  For  CTRIPS 


for  an  TP- token  and  if  found  calls  sun  rout  ir^s  FELATF  and 
PO  ST  F  X ,  On  nturn  from  POSTFX,  another  check  io  mad- 
an  IP-token  which  exists  for  nested  IF-TdFNs.  If  fouri,  tv- 
pro  Tram  loops  back  until  the  EL3E-*oken  is  encoua^rr  I  which 
will  generate  *  call  cf  P05TFX  to  process  the  FLOP  arsi  ^nm-ir 
clause.  Upon  the  final  return  frcm  POSTFX  a  check  i  r,  ad-3 
to  verify  the  requirement  for  internal  a  ldresser  wi*win  *  h  - 
triples.  This  requirement  exists  whenever  ^hj  full  assign¬ 
ment  clause  contains  the  IF-THEN-FL3F  tokens,  that  is  any¬ 
time  it  consists  of  more  than  a  single,  simple  assignment 
clause.  The  needs!  address  is  the  address  of  the  end  of  *he 
triples  and  will  become  the  operand  for  the  unconditional 
branch  at  the  end  of  each  set  cf  triples  represent  in  a  a 
simple  assignment  clause.  The  triples  are  then  written  out 
if  desired  for  maintenance  or  debugging  purposes  and  th^ 
subroutine  returns  to  the  calling  module. 

Subroutine  RELATE  processes  the  relational  expression 
following  the  IF-token  and  places  it  in  *  he  ordered  triples. 
The  flow  chart  is  illustrated  in  Figure  i .  Relational 
expressions  are  limited  to  fhe  following  components: 

1.  Optional  string  of  unary  pluses  anl/or  minuses 

2.  Constant  or  variable  identifier; 

3.  Relational  operator; 

4.  Optional  string  of  unary  pluses  and/or  minuses 

5.  Constant  or  variable  identifier. 
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Unary  pluses  are  disregarded  since  they  hcvo  10  effect. 
Unary  minuses  will  negate  the  constant  or  variable  teken  or. 
which  ^h^y  operate.  (The  processing  of  unary  pluses  and 
minuses  is  a  minor  detail  which  1 ^e s  not  appear  in  any  of 
the  flow  charts  tor  sake  of  sitrplicit  y . )  The  operanis  of 
the  relational  operator  (variables  and/or  constants)  arc 
placed  in  the  second  and  third  columns  of  the  triple  array. 
An  internal  code  for  subtract  is  placed  in  the  firs*  column 
of  the  triples  as  the  operator. 

A  branch  condition  based  on  the  specific  relational 
operator  is  placed  in  the  next  triple.  The  address  cf  *his 
triple  is  saved  for  inserting  object  cf  the  branch  it  a 

later  time  when  i t  becomes  known.  This  occurs  in  subroutine 
SLDTFP.  The  purpose  here  is  tc  generate  a  branch  to  the  end 
of  the  THEN  assignment  clause  should  the  relational  expres¬ 
sion  be  false.  The  address  of  the  end  of  the  THEN-clause 
is  nat  known  until  BLDTFP  completes  building  the  trifles  for 
the  TFEN  assignment  clause. 

Subroutine  POSTFX  receives  the  s*rinq  of  tokens  repre¬ 
senting  a  simple  assignment  clause  such  as 

A  :=  B  ♦  (C  ♦  D  **  E)  -  Sgrt  (F) . 

With  this  input,  POSTFX  transforms  the  token  string  into 
oostfix  notation  which  would  be 

A,  8 ,  C,  D,  I,  ♦*,  ♦,  *,  F,  Sgrt, 

8LDTRP  is  then  called  tc  build  the  ordered  triples  from  *h^ 
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simple  assiqnment  clause.  The  flow  chart  in  Figure  u  illus¬ 
trates  the  oasic  alqorithro  used. 

Input  tokens  are  parsed  one  at  a  time  and,  depend ina 
on  what  they  represent,  either  moved  directly  to  tnr  output 
stream  or  oushed  onto  a  last- in-f ir st-out  (LIFO)  stack  tor 
an  interim  period.  When  the  "end*1  token  is  encountered,  anv 
tokens  remairtinq  on  the  stack  are  moved  tc  the  output  stream. 
Since  the  order  of  variables  and  constants  as  read  from  let* 
to  riqht  is  the  same  for  bath  infix  and  postfix  notation, 
they  are  always  moved  directly  to  the  output  stream,  Th^ 
orier  of  operators  is  changed  as  necessary  to  obtain  >e 
proper  sequence  of  execution.  The  standard  precedence  of 
operators  from  hiqhest  to  lowest  is: 

Funct ions 

Unary  plus  or  minus  {+,  -) 

Exponentiation  (**) 

Multiplication,  division  (*,/) 

Addition  or  subtraction  (t,  -) 

Assi gnmen  t  ( : =) 

Riqht  parenthesis 
Left  parenthesis 

A  series  of  relative  comparisons  result  in  the  proper 
sequence  of  operators.  A  left  parenthesis  is  always  pushed 
onto  the  stack.  When  the  stack  is  empty  th^  operator  is 
pushed  onto  the  stack.  Plus  and  minus  siqns  must  he  checked 
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to  determina  if  they  are  unary  or  binary  operators.  Unary 
pluses  are  disr egarde  l  whii^  each  unary  minus  negates  its 
operand  token.  Remaining  operator  tokens  are  compared  wi*! 
the  token  at  the  top  of  the  stack.  It  the  stack  token  i <=  of 
equal  or  higher  precedence,  it  is  output  and  another  conifari- 
son  is  made  with  the  new  top  of  the  stack  token.  When  the 

input  tefeen  is  of  hiqher  precedence  ani  a  right  parenthesis, 

then  the  stack  token  must  be  a  left  parenthesis,  so  both  are 

discarded.  In  other  cases  when  the  input  token  is  ot  higher 

precedence  it  is  pushed  onto  the  stick  and  the  next  token  is 
fete  hed . 

Th°  simple  assiqnmer.t  clause  has  four  possible  delimit¬ 
ers  to  mark  its  end,  A  second  F-tokor.  indicates  a  noshed 
IF-THEN  situation  and  a  relational  expression  will  fellow. 

An  ELSF-token  marks  the  end  of  the  THEN  assignment  clause 
which  will  be  followed  by  an  ELSE  assignment  clause.  The 
tokens  NOSAVE  and  COMMENT  are  special  tokens  to  denote  the 
end  of  th®  full  assignment  clause.  When  any  of  thesr  delim¬ 
iters  are  encountered,  the  stack  is  moved  to  output  and  an 
internal  end  delimiter  is  placed  in  the  output  stream, 

POSTFX  then  calls  BLDT^P  to  cenver*  the  postfix  assignment 
clause  into  ordered  triples. 

Subroutine  BLDTEP  builds  triples  from  the  postfix  ex¬ 
pression.  Figure  5  is  *he  flow  chart  for  BLi) TR P •  Using  *he 
while-lo  construct,  the  underlying  logic  is  ’’while  the  tck*>n 


Figure  5.  Flow  Chart  For  BLDTRP 


2  'l 

is  n  i  f  the  internal  end  delimiter,  3n  place  the  operators 
±  n  d  o  pe  r  i  n  i  s  into  the  proper  position  1 n  the  array  o  f 
ord  ^re.)  tr  iples" . 

The  postfix  token  strinq  is  parsed  until  an  operator  i^ 
founl.  That  operator  and  the  pr^cMinu  two  operands  (one 
operand  for  function  operators  which  are  unary  operators) 
are  placed  into  the  triple  array.  After  being  laser4* 3  d  in 
the  mipLe,  a  zero  replaces  operator  tokens  in  the  postfix 
st rim.  This  step  will  prevent  any  attempt  to  us«  the  same 
operator  twice.  It  should  also  be  noted  t h a f  the  interim 
result  of  a  triple  (an  ooera^cr  and  its  respective  operands) 
may  b <=>  the  operand  for  a  subsequent  triule.  Thus  the  riim 
operand  in  the  postfix  strinq  is  r^plact  1  with  a  For  command 
to  denote  the  interim  result  of  a  preceding  triple  is  to 
be  popped  from  a  stack.  (Durinq  execution,  interim  triple 
results  will  be  automatically  pushed  onto  a  stack  for  later 
use.)  After  the  second  operand  is  placed  ir.  the  triple  a 
zero  is  placed  in  its  position  in  the  postfix  strinq  *0  pr^- 
elude  f hat  operand  from  beina  used  a  second  f ime. 

The  subroutine  then  finalizes  seme  addresses  within  the 
ordered  triples.  The  conditional  branch  for  a  false  rela¬ 
tional  expression  (false  IF  condition)  is  given  the  address 
of  the  present  triple  plus  two  (the  beginning  of  the  ?LSH- 
clause)  .  The  next  tr^|rie  is  qiven  an  uncord  i  t  i  n  1 1  branch  to 
the  en  \  of  the  full  assignment  clause.  As  only  on^  assi m- 


q 


n 


] 


me  n  t  c 1 i u s e  is  to  he  executed,  e a c h  clause  is  followed  with 
a  branch  to  t  h  • j  end  of  the  last  assignment  c  1  a  u  s  a  •  P  ~  cii]  s  ^ 
tnat  address  is  not  known  yet,  ♦he  address  of  ♦he  end  cf  \ 
simple  assignment  clause  is  retained  and  the  final  "eni" 
address  is  inserted  in  each  in  a  wrap-up  procedure  i  r.  c  T  U I  p 

Boolean  Expression 

The  Boolean  expression,  as  discussed  in  chapter  2r 
con  sits  of  a  series  of  relational  expressions  which  are  ♦he 
operands  of  logical  operators.  Tn^y  have  the  same  possible 
syntax  as  the  full  assignment  clause  relational  expressions 
presented  earlier.  The  tokens  IN  and  MOT  IN  and  th*ir  jrou 
ilentifier  are  also  possible  operands,  indicatinq  da4:.!  is  * 
be  either  selected  f  r o m  the  s pe c i  f  i ed  q r o u  p  of  cclurrs  of 
the  data  base  or  selected  from  columns  not  w i t h i u  *  h  ^  sped 
fied  qrouo.  Parentheses  may  also  be  used  ♦o  modify  the 
precedence  of  operators  or  to  imnrovo  under  st  a  nda  hi  1  i*  y  of 
the  expression*  An  example  of  a  proper  Boolean  expression 
might  be 

IN  G 1  .AND.  T  1  =  d  .AND.  (T 2  <  =  2  .OR.  T2  >  S)  . 
After  transforming  this  expression  into  postfix  notation 
it  woul  1  appear  as 

IN  G 1 ,  T 1  =  3,  .AND.,  T  2  <=  2,  T2  >  S,  .OR.,  .AND 
The  string  of  tokens  in  postfix  order  must  now  he  converted 
in*o  ordered  triples  for  efficient  execution.  The  desired 


i  r  *-  a  s 


ordure  v  i  triples  for  the  priced  ini  e  xpression  i  r  *■  a  s 
w  Operator  QL2L±li j  2  Q£^rand  2 


ADC 

CR 

AND 

3ET*SK 


SELECT 


During  execution  cf  th**  above  triples  the  relation il 
evaluations  and  *  he  conditional  an  i  u r condi t iona L  hr  arc  res 
function  identical  tc  those  explain- d  previously  wiM,  the 
full  assignment  clause,  Th^  IN  7 roup  operand  will  cause  a 
on°  to  he  pushed  onto  a  stack  if  the  iroup  exists,  otMrwis^ 
a  zero  will  be  pushed.  The  H A  )D  0  1”  triple  is  execute  1 

if  *he  relational  expression  is  true  and  will  cause  a  one 
to  b^  pushed  onto  the  stack.  For  a  false  relational  expres¬ 
sion,  the  "ADD  0  0"  triple  is  executed,  causing  a  zero  to 

be  pushed  onto  the  stack.  The  AVD  triple  w  i  1  1  pop  •'he  stack 
twice  anl  if  there  are  two  ones,  a  one  is  pushed,  o+herwis- 
^  zero  is  pushed.  Similarly,  0?  pops  the  stack  twice  and 
pushes  1  one  if  at  least  c n e  o f  the  pops  is  a  one.  mow  JO 


so  *  s  i  iii  i  sk  or  f 1  <  1  7  *  n  cup  if  f  h-1  u  c  c.  1  — i  n  (  xpr  e  s  s  i  o  n  :  s 
t  r  a o  ,  o  *•  h o  r  w  i  s ^  a  z  e  i  o  is  sp\ 

Obviously  th^r^  art  many  similarities  hot  w -or.  f  >i  1  ^  :  i  r. 
or  '1  o  r  o  d  *  r  i  p  1  e  s  for  Boolean  and  a  r  i  r  h  m  o  *  i c  ~  x  p  r  e i  s  ions. 
However  sufficient  d  i  f  f  erences  exisfc  *  o  warrant  .3?;n:  it.; 
rouf  iips,  To  preclude  excessive  repetition,  the  i*=rc:i:ti 
of  "'ho  full  assignment  clause  itoIuIos  will  bo  us  -  d  a s  a  1  i 
line  and  only  the  siqnificunt  di  *  f  o  rpneos  f  cr  3c  c  loan  f-xrr 
sions  will  be  explained  in  this  sec  tic:.. 

Wnjn  a  Boo  loan  expression  is  +  y  lo  translated,  ;m 

pro j ram  will  call  subroutine  P.ST  F  VS  ,  a  six  letter  n  a  a  r  re  r 
M postfix  s o i ec t H .  The  flew  chai f  f  >  r  this  subroutine  is  •* 
s a m  '•  as  *hat  of  POSTFY  (Figure  4)  wi*  i.  minor  exceptions  of 
delimiters,  o p o  razors,  and  operands.  r k  -  t  ok  ?  n  s  N'V>  a  V  b  a  r 
U  E 1 A  H  K  are  t  h  o  n  1  v  io  limiters  for  ”  r.  <-  ?  c  c  1 *  a  n  expression. 
The  precedence  of  possible  operators  from  hiTh.es*  t  ^  1 
is:  .AND. 

.  0  F . 

R i q  h  t  parenthesis 

Loft  pa  r  e  n  t  h  e  s i s . 

The  operands  for  the  Boolean  expression  rue  mor~  than 
ona  token  in  lenqth.  Consequently  the  routine  reco  in  i  z^s 
each  portion  of  an  operand  (unary  plus  or  irinus,  constant, 
variable,  relational  operator,  IN,  NOT,  ir.ii  non;))  a  nd  n  ov 


them  directly  t  o  the  output  sttinq,  Cnee  th 


e  xprv 


i  oi. 


converts!  to  nostfix  notation,  a  l  •'■-conn  iza  !  le  f  nl  i  ■?  I  i  i -*• : 
is  placed  in  the  string  and  .subrouting'  TQIILS  is  cal  U'  i. 

Subroutine  TFTIL5  (Fi  iutp  6)  accepts  *  r .e  bccl-an  -xc:*  .;■ 
si o n  i n  postfix  notation  ani  arrano^s  the  tokens  ir.tc  o :  i - r  ~ 

*  r  i  p  1  o  s .  A  ja  i  n  there  are  similarity's,  y  e  t  d i  f  f  e r e nc - s ,  w  h  -  n 
comparing  subroutines  IRIPLS  ani  FLDTFP. 

The  postfix  strinq  is  parse!  and  the  tokens  id^n^ifi—  :• 

L  oq  i  cal  operators  {.AND,,  .CP.)  ar^  moved  directly  *  c  t  ~ 

trinle  an  1  the  next  fcken  is  fetch-!.  The  operands  IN  and 
NOT  IN  along  with  the  group  identifier  are  place!  in  *•  h ■  * 
triples.  No  branch  conditions  are  required  since  execu¬ 

tion  phase  will  determine  whether  these  operands  a:-  "'rue  or 
false,  pushing  a  one  or  zero  as  appropriate  o nto  the  stack. 
The  only  other  token  type  is  a  logical  operand  of  *hree 
tokens  wnic.a  form  a  relational  expression.  ?h°  s u h f iac *■ 
cod'  will  lie  placed  in  the  triple  followed  by  the  "wc 
relational  operands.  The  n^xt  triple  will  get  a  conditional 
branch  base!  on  a  false  relational  expression,  A  on-  or 
zero,  depending  on  a  true  or  false  relational  expression,  is 
pushed  onto  th<*  stack.  Finally  the  triples  must  provide  for 
evaluating  the  entire  Fcolean  expression  is  evaluated.  To 
do  this  the  stack  is  popped.  A  ono  indicates  a  f ra^,  a  zero 
a  false  expression.  A  flag  (SFTSSK)  is  set  to  r^fl^c*  this 
condition.  Now  that  the  triples  are  ccrapltf^  i,  TRIPLE 


returns 


to  PSTFX3  which  returns  to  ivs  calling  module 


Av  this  point,  the  routines  t  ran-itcro  full 

arsiu  nnaent  clause  an  i  Fcolean  Qxpr^M-*ions  into  crdoied 
triples  have  been  fully  discussal.  ?ht?  nrxr  c hin*or, 
chanter  r> ,  will  conclude  this  paper. 


CHAPTP.R  V 


CC NC  LUST C N 

This  project  h  .if  be^n  sneers  r  f  .1  ]  in  (Kvelcpinu 
desired  pro  iriiiir;.  5  e  v  p  r  a  1  /^ryim  so  *  s  of  ;1  a  t  a  hav-  h  -  ■- :. 
processed  and  tht  desired  results  have  been  ob*air;«d.  T* 
should  hj  <?  m  ph  a  s  i  7. o  d  ,  1  c  we  v  e  r  ,  t  h  a  *  t  h»-  programs  a  r  •:  j  u  i  t ^ 
spnsitiva  to  vinq  syntactically  correct  input.  I  *  war 

assumed  in  the  specifications  that  the  tokrns  would  *e 
edited  and  checked  for  correct  syntactic  order  before  be  in  a 
oroc-soo  1  into  ordered  triples.  Consequently,  thes^ 
programs  have  a  very  lew  tolerance  to  erroneous  inout. 

FORTRAN  was  specified  as  *he  pr  oq  r  a  rr  iri  n  7  lanouace  in 
order  to  enhance  transportability.  ANCI  FORTRAN  is 
generally  considered  tc  be  an  unstructured  lanouaqe  sine-1 
its  oi)ly  means  of  chanainq  the  ord?r  of  cxec uticn  of 
statements  from  sequential  is  with  SO  TOs  and  *h«  DO-loop. 
However,  it  was  possible  to  provide  a  perception  cf 
structure  *0  the  programs.  This  was  accomplished  ny  a 
carefully  structured  use  of  comments  and  precise  indentation 
of  comments  and  executable  statements.  The  r^sultim  code 
is  more  understandable  than  most  FORTRAN  programs. 

Th^  most  difficult  aspect  of  th^  project  was  i^finim 

16 


1 


5  7 

and  understanding  the  speci  f  icaf  icr.s  and  regui  i>-  aent  >.  of  t:;e 
project*  Nearly  all  of  the  cc  m  in  u  n  i  ca  t  i  on  was  oral  writ;1-,  may 
be  subject  to  lifferent  interpret  a*  ior.  a  no  may  often  b-, 
forgotten  or  take  or  different  meaninus  after  a  perie:  >-* 
time.  Further,  the  author  was  not  involved  in  the  oveii..  1 
CODA?  project,  thus  initially  did  n o1*  have  the  btcal 
perspective  of  the  COD  At  system.  With  attention  ^ocus-  i  or 
only  the  p  o  b 1 e  m  at  hand,  it  was  often  more  difficult  *  o 
understand  the  need  and  reason  for  certain  specifications. 
Finally,  the  specifications  wpre  not  precisely  avail *bi~  at 
the  start  of  the  project.  Specifications  are  normally 
developed  or  modified  as  the  project  progresses,  as  was 
in  this  situation.  As  experienced  in  probahlv  all  software 
develonment  projects,  tfco  specifications  evolve  and  char.  ^ 
as  time  passes,  the  users  think  of  o^hcr  requirements  and 
peculiarities,  and  the  designers  perceive  new  and  expandina 
cipabilites.  Real  world  experiences  encountered  in  ♦'his 
project  will  certainly  be  of  significant  value  to  the 
author. 


Future  Efforts 

Althouqh  the  subroutines  level  oped  function  a cc nr  lino 
to  the  specifications,  additional  improvements  couH  still 
be  added.  Separate  subroutines  were  developed  for 
transforming  the  input  tokens  into  nostfix  notation,  th^n 


into  or  1°  red  triples.  The  se parate  subroutines  w-^re  c noser 
to  break.  *1  e  overall  problem  down  into  smaller,  !iio:j 
manaaeable  problems  ?tnd  to  make  Miem  small  enouqh  vo  bo 
easily  understood.  This  doos,  however,  increase  th^ 
computer  overhead  devoted  to  link ini  the  various  subroutine 
together.  Alqorithms  exist  (1,6)  to  convert  an  infix  toker 
strir.q  directly  into  ordered  triples.  A  comparison  between 
the  length,  complexity,  and  execution  efficiency  cf  the  ^wc 
methods  may  be  enliqhterinq. 

A  second  area  for  future  study  concerns  the  ordered 
triples  constructed  from  the  Boolean  expression.  The 
Boolean  expression  is  composed  of  a  series  ot  logical 
operators  (.AND.,  .OF.)  and  the  associated  operands.  As 

developed,  the  entire  set  of  triples  must  be  executed  +  o 
determine  the  result  of  the  expression.  However,  for 
certain  sequences  of  operators,  it  can  be  determined  that 
the  oxpr^f  sion  is  false  before  rhe  entire  expression  is 
evaluated.  This  would  te  desirable  since  there  is  nc  ne~l 
to  evaluate  the  remainder  of  the  expression  once  the  final 
results  have  already  been  determined.  Being  able  to  stop 
the  expression  evaluation  once  i*  s  results  have  been 
determined  would  save  execution  time,  But  developinj  the 
algorithm  to  insert  the  proper  branches  into  the  triples  is 
not  an  easy  problem,  ccnsiderinq  the  various  possible 
sequences  of  operators  and  how  parentheses  are  used 


change  the  the  normal  precedence  of  execution.  Such  an 
optimizing  step  would  likely  reguiro  the  tokens  to  be 
scanned  several  times  while  developing  the  possible  paths 
throuqh  the  Boolean  expression.  Due  to  the  cc m plex i ,  such 
an  optimizing  effort  cculd  likely  result  in  errors  as  are 
sometimes  encoutered  with  commercial  optimizing  compilers. 
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SYNTAX  GRAPHS 
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Boolean  Expression  Syntax  Graph 


Relational  Expression  Syntax  Graph 


user’s  su  ir)i-: 

T  h  o  ;n  o  1  u  1  e  s  a  r  *-  b  <=  5  i  q  :i  -  1  *  o  p  t  n.  i  n  p  a  t  ^  r  r  i  /  a  r 

13  0  r  c  k  ^  n  s  •  If  it  is  determined  t  h  i  *  1  o  r:  q  <-  r  ccum  t  n  : *;il 

be  a  -J  e  i ,  the  arrays  INPCT  and  CUTOUT  will  n  1  v  )  b' 
dimensioned  to  a  larqar  size  in  ill  .subroutines,  Addition 
ally,  the  matrix  w  1;  i  c  h  returns  the  ordered  triples,  TRIPLE 
may  need  to  be  ^nlarqed.  Its  presen^  size  is  80  by  1m 

A  stack  is  used  in  the  subroutines  pcsTFX  and  PFTFXb 
to  temporarily  held  operators  whil^>  Mo-/  ai^  bein  '?  :i  o:  lor 
c  d  from  infix  to  p  o  s  t  f  i  x  notation.  T  h  o  stack  s  i  z  ^  is  3  ^  . 
it  i  s  co  nc  e  i  va  b  ,  alt  h  c  ujh  u  n  1  i  k  e  1  y ,  t  o  r  very  lend  r  t  r  i  ni 
o  £  i  :i  o  u  t  t  o  k  e  n  s  and  w  i  *  h  c  e  r  t  a  i  n  a  r  ran  1 *-  m  e  r.  *  s  o  f  opera¬ 
tors,  operands,  and  parentheses,  for  th~  stack  to  overflow 
Tf  this  should  occur,  the  stack  s  i  7.->  should  be  increase  1. 

PF^LVL  is  aii  integer  parameter  which  p^rmi^s  printing 
out  interim  data  for  maintenance  or  <3 e  b  u c q i  n q  purposes. 

For  a  value  of  zero,  the  postfix  string  of  tokens  and  tr,  » 
completed  ordered  triples  are  printed. 

The  tokens  musf  be  in  prefer  syntactic  order  when 
passed  to  these  subroutines.  The  specifications  wer^  for 
other  modules  to  do  the  editing  and  syntax  checkin  i.  Th^ 
designed  subroutines  have  li*+le  fault  tolerance  for 
improper  tokens  or  incorrect  token  ord-r. 
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:  I-:- 


;-,t: mi  mus?  hi v *•  i ice— j»*«i 
nor?  r.  ■’  ori<l  )t  th#»  stzin.  A  ::  *  1  Ci  {•<?  r  •-  o  rt 
0:>  AVE  ot  ft  2KARK. 

tokf-ns  ,j  f  plica  Me  *o  tn?  tuonai.1'  riesi 


inoo-i'hi^ 

cc  m men  t 

2  0  0  C  0  -  2  ^ r‘  9 

constants 

Relational  operators 

30  90  1 

.e;. 

}  0002 

.  NF.. 

3  0  CO  3 

•  G  T  • 

.30004 

.  LT  • 

3  r  ocs 

.  G  E  • 

30006 

.  LE  . 

Loqica 1  OperaH 

tors 

4 C  00  1 

•  AND. 

40002 

•  OR  . 

lathm.?*  ical  C  c  era  tor? 

50002 

lef*  paren^ 

5C0C4 

r  i  q  n  t  pare! 

3C0C5 

plus  1 t  * 

5  0  006 

minus  1  - 1 

5C  00*7 

divide  */ 1 

50  00  3 

multiply  * 

5  0  005 

exponent  id 

50  01  0 

a  s  s  i  a  n  1  :  = 

Functions 

60002 

loqarith m 

60  009 

square  mo 

Variables 

70000-109555 

and  1500)9 

Specific  I  den 

t  i  f  i  e  r  s 

1 40 B0 5 

IF 

140806 

IN 

1  4  1607 

NOT 

1  42408 

THEN 

1  42409 

ELSE 

144C02 

NOS  A VF 

144309 

REMARK 

’  (' 

;  ' )  ’ 


i  *  *  i 


or  larger 


r 


Cone rated 

Inf  emal  c 

od? 

5001  1 

8NZ 

branch  on  r. o+  zero 

5001  2 

BZ 

branch  on  zero 

5001  3 

3MZ 

branch  on  minus  or  z e 

5f  0  1  4 

3PZ 

branch  on  plus  or  zer 

5C015 

EM 

branch  on  minus 

5001  6 

BP 

br inch  or.  plus 

500  1  7 

B 

unconditional  branch 

5  001  6 

ADD 

push  o  r  *  n  stack 

5  0  01  9 

POP 

pop  from  stack 

50020 

SET  M5K 

set  * h e  mask 

50  C  2  1 

.  ANP# 

loqical  and 

5  C  0  2  2 

.OR. 

loqi ca 1  or 

5002  J 

IN 

in  q r o u p  or  module 

50024 

NOT  IN 

not  in  a r o u p  or  m o d u  1 

5002  5 

CREATE 

create  now  data 

50026 

SELECT 

s-^lec**  frcir  data  base 
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SUBROUTINE  CTRIPS  (INPUT,  PRTLVL,  TRIPLE) 


xxxxx 

xxxxx 

xxxxx 

XXX 

xxxxx 

XXXXX 
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XXX 
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********  FUNCTION  OF  NODULE  ******** 

CTRIPS  IS  THE  CONTROL  NODULE  UHICH  ACCEPTS  A  STRING  OF  TOKENS 
UHICH  FORM  THE  FULL  ASSIGNMENT  CLAUSE  AND  CALLS  THE  NODULES 
UHICH  CONVERT  THE  STRING  INTO  ORDERED  TRIPLES  FOR  EXECUTION. 

********  PROCEDURE  FOLLOUED  ******** 

THE  FIRST  TOKEN  IS  CHECKED  TO  DETERMINE  UHAT  IT  IS.  FOR  AN  'IF' 
TOKEN,  THE  RELATE  SUBROUTINE  IS  CALLED  TO  PLACE  THE  TOKENS  OF  THE 
RELATIONAL  EXPRESSION  INTO  THE  ORDERED  TRIPLE  ARRAY.  FOLLOUING 
THE  RETURN  FROM  RELATE  (OR  IMMEDIATELY  IF  THERE  IS  NO  RELATIONAL 
EXPRESSION)  POSTFX  SUBROUTINE  IS  CALLED  TO  REORDER  THE  INFIX 
ASSIGNMENT  CLAUSE  INTO  A  POSTFIX  ASSIGNMENT  CLAUSE. 

POSTFX  CALLS  BLDTRP  UHICH  PLACES  THE  POSTFIX  ASSIGNMENT  CLAUSE 
INTO  THE  ORDERED  TRIPLE  ARRAY  BEFORE  RETURNING  TO  THIS  NODULE. 
REPEATED  CALLS  OF  THE  RELATE  AND  POSTFX  SUBROUTINES  MAY  BE  MADE 
TO  HANDLE  NUMEROUS  RELATIONAL  AND  ASSIGNMENT  CLAUSES. 

********  SUBROUTINES  CALLED  ******** 

RELATE-NOVES  TOKENS  OF  RELATIONAL  EXPRESSIONS  TO  THE  TRIPLE  ARRAY 
POSTFX-CHANGES  TOKENS  OF  ASSIGNMENT  CLAUSES  INTO  POSTFIX 

ORDER;  THEM  CALLS  BLDTRP  UHICH  PLACES  THOSE  TOKENS  INTO 
THE  TRIPLE  ARRAY 

********  VARIABLE  DECLARATIONS  ******** 

PARAMETERS 

INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  TOKENS 
PRTLVL-INTEGER,  VARIALBE  TO  ALLCU  PRINTING  OF  EXTRA  INFORMATION 
UHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 
SYSTEM 

TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 


INTEGER  INPUT ( 100) ,  PRTLVL,  TRIPLE(80,3> 
C 
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47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

5  <4. 

57. 

58. 

59. 

60. 
6). 
62. 

63. 

64. 

65. 

65.1 

65.2 

65.3 

65.4 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 


C  LOCAL  VARIABLES 
C 

C  BRADDR-INTEGER  ARRAY,  LENGTH  20,  HOLDS  INTERNAL  ADDRESS  OF  TRIPLE 
C  ROUS  UHICH  WILL  GET  UNCONDITIONAL  BRANCH  TO  END  OF  TRIPLES 

C  INPNT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 

C  NUHBX  -INTEGER,  COUNTS  THE  NUMBER  OF  PLACES  FOR  UNCONDITIONAL 

C  BRANCH  TO  END  OF  TRIPLES,  INCREMENTS  THE  BRADDR  ARRAY 

C  OUTPNT-INTEGER,  POINTS  TO  LAST  TOKEN  IN  OUTPUT  VECTOR 
C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 

C  ASSIGNMENT  CLAUSE 

C  RENBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 
C  ADDRESS  FROM  BLDTRP  SUBROUTINE 

C  TRPR0U-1NTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 
C 

INTEGER  BRADDR(20),  INPNT,  NUMBX,  OUTPNT,  OUTPUT(IOO),  REMBER, 

1  TRPROU 
C 

C********  EXECUTABLE  CODE  ******** 

C 

INPNT  3  1 
NUMBX  3  0 
REMBER  =  0 
TRPROU  3  0 

C  IF  THE  FIRST  TOKEN  IS  'IF'  THEN  CALL  SUBROUTINE  RELATE 
IF  (INPUT(INPNT).NE. 140805)  GO  TO  80 
70  INPNT  *  INPNT  +  1 

CALL  RELATE  (INPNT,  INPUT,  REMBER,  TRIPLE,  TRPROU) 

C  END  OF  IF 
C 

CALL  POSTFX  (BRADDR,  NUMBX,  INPNT,  INPUT,  OUTPUT,  PRTLVL, 

*  REMBER,  TRIPLE,  TRPROU) 

C 

C  IF  THE  NEXT  TOKEN  IS  'IF'  (NESTED  IF-THEN  CLAUSE) 

C  THEN  CALL  SUBROUTINE  RELATE 

IF  (INPUT(INPNT).EQ. 140805)  GO  TO  70 
C  END  OF  IF 

80  CALL  POSTFX  (BRADDR,  NUMBX,  INPNT,  INPUT,  OUTPUT,  PRTLVL, 

2  RENDER,  TRIPLE,  TRPROU) 

C  IF  INTERNAL  TRIPLE  ADDRESSES  ARE  INCOMPLETE 
IF  (NUMBX. EQ.O)  GO  TO  100 
C  REPEAT 

C  PLACE  THE  SAVED  TRIPLE  ROU  ADDRESS  IN  THE  PROPER  PLACES  AS  THE 
C  OBJECTS  OF  THE  UNCONDITIONAL  BRANCHES. 

DO  90  K  3  I,  NUMBX 

90  TRIPLE (BRADDR(K) ,3)  3  TRPROU  ♦  1 

C  END  OF  REPEAT 

C  END  OF  IF 
C 

C  IF  PRTLVL  3  0  URITE  OUT  THE  ORDERED  TRIPLES 
100  IF  (PRTLVL. NE.O)  GO  TO  600 

N  3  TRPROU 
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DO  110  TRPROU  <*  1  rN 

110  WRITE  (4,510)  < TRIPLE (TRPROU, J),  J  »  1,  3) 

C  END  OF  IF 

510  FORNAT  ('  ',  T10,  17,  T25,  17,  T40,  17) 

400  RETURN 
END 


CIEJECT 
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1.  SUBROUTINE  RELATE  (INPNT,  INPUT,  REHBER,  TRIPLE,  TRPROU) 

2.  C 

3.  C  XXXXX  XXXXX  X  X  xxxxx  xxxxx 

4.  CXXX  X  XX  XX 

5.  C  XXXXX  *XXX  X  XXX  xxxx 

6.  CXXX  X  XXXXX  X  X 

7.  C  X  X  XXXXX  XXXXX  XXX  xxxxx 

8.  C 

9.  c********  FUNCTION  OF  NODULE  ******** 

to.  c 

11.  C  RELATE  SCANS  THE  INPUT  STACK  OF  TOKENS  AND  CHANGES  THOSE  IN  A 

12.  C  RELATIONAL  EXPRESSION  INTO  ORDERED  TRIPLES  WHICH  ARE  OUTPUT  IN 

13.  C  AN  ARRAY. 

14.  C 

15.  c********  PROCEDURE  FOLLOWED  ******** 

16.  C 

17.  C  INPUT  RELATIONAL  EXPRESSIONS  ARE  RESTRICTED  TU  THE  FOLLQUING 

18.  C  FORMAT:  1.  OPTIONAL  STRING  OF  UNARY  PLUSES  AND/OR  NINUSES; 

19.  C  2.  CONSTANT  OR  VARIABLE  IDENTIFIER; 

20.  C  3.  RELATIONAL  OPERATER; 

21.  C  4.  OPTIONAL  STRING  OF  UNARY  PLUSES  AND/OR  MINUSES; 

22.  C  5.  CONSTANT  OR  VARIABLE  IDENTIFIER. 

23.  C  UNARY  PLUSES  ARE  DISREGARDED.  UNARY  NINUSES  ARE  ACCUMULATED 

24.  C  AND,  IF  THERE  ARE  AN  ODD  NUMBER  OF  THEM,  THE  CONSTANT  OR  VARIABLE 

25.  C  TOKEN  IS  CHANGED  TO  A  NEGATIVE  VALUE.  THE  FIRST  CONSTANT  OR 

26.  C  VARIABLE  IS  PLACED  IN  THE  SECOND  COLUMN  OF  THE  TRIPLE  ARRAY, 

27.  C  THE  RELATIONAL  OPERATOR  IN  THE  FIRST  COLUMN,  AND  THE  SECOND 

28.  C  CONSTANT  OR  VARIALBE  IN  THE  THIRD  COLUMN. 

29.  C 

30.  C  *  ******  *  VARIABLE  DECLARATIONS  ******** 

31.  C 

32.  C  PARAMETERS 

33.  C 

34.  C  INPNT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 

35.  C  INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  TOKENS  TO  THIS 

36.  C  HODULE 

37.  C  REMBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 

38.  C  ADDRESS  FROM  BLDTRP  SUBROUTINE 

39.  C  TRIPLE-INTEGER  ARRAY,  SIZE  80  DY  3,  FOR  RETURNING  ORDERED  TRIPLES 

40.  C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 

41.  C 

42.  INTEGER  INPNT,  INPUT (100) ,  REMBER,  TRIPLE ( 80 ,3 ) r  TRPROU 

43.  C 

44.  C  LOCAL  VARIABLES 

45.  C 

46.  C  MINUS  -INTEGER,  UNARY  MINUS  OPERATOR  TOKEN  50006 
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47.  C  PLUS  -INTEGER,  UNARY  PLUS  OPERATOR  TOKEN  5000S 

48.  C  POP  -INTEGER,  OPERATOR  UHICH  NAY  BE  INSERTED  INTO  THE  ORDERED 

49.  C  TRIPLE  ARRAY  FOR  POPPING  RESULT  FRON  A  STACK 

50.  C  RELOPS-INTEGER  ARRAY,  SIZE  2  BY  6,  HOLDS  RELATIONAL  OPERATOR  AND 

51.  C  BRANCH  CODES.  THE  OPERATOR  CODES  INSERTED  INTO  THE  ORDERED 


52. 

C 

TRIPLE  ARRAY 

ARE  8 

53. 

C 

INPUT 

RELATIONAL 

BRANCH 

BRANCH 

54. 

C 

TOKEN 

OPERATOR 

CONDITION 

CODE 

55. 

C 

30001 

.EQ. 

BNZ 

50011 

56. 

C 

30002 

.NE. 

BZ 

50012 

57. 

C 

30003 

.GT. 

BMZ 

50013 

58. 

C 

30004 

.LT. 

BPZ 

50014 

59. 

C 

30005 

.GE. 

BH 

50015 

60. 

C 

30006 

.LE. 

BP 

50016 

61.  C  RELPNT-INTEGER,  POINTER  TO  ENTRIES  IN  RELOPS  ARRAYY 

62.  C  TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 

63.  C  CONSTANT 

64.  C  THEN  -INTEGER,  POSSIBLE  INPUT  TOKEN  142408 

65.  C  UHINUS-INTEGER,  UNARY  MINUS  MULTIPLYING  FACTOR 

66.  C 

67.  INTEGER  MINUS,  PLUS,  POP,  R£L0PS<2,6>,  RELPNT,  SUB,  TEMP,  THEN, 

68.  S  UHINUS 

69.  DATA  MINUS/50006/,  PLUS/50005/,  POP/5001?/,  RELOPS/30001 ,  50011, 

70.  I  30002,  50012,  30003,  50013,  30004,  50014,  30005,  50015, 

71.  1  30006,  50016/,  SUB/50006/,  THEN/142408/ 

72.  C 

73.  C********  EXECUTABLE  CODE  ******** 

74.  C 

75.  UHINUS  «  +1 

76.  INPNT  =  INPNT  -  1 

77.  TRPROU  *  TRPROU  +  1 

78.  C 

79.  10  CONTINUE 

80.  C  INCREMENT  THE  INPUT  ARRAY  POINTER 

81.  INPNT  INPNT  ♦  1 

82.  C  IF  THE  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  THE  NEXT  TOKEN 

83.  IF  (INPUT (INPNT > . EQ . PLUS )  GO  TO  10 

84.  C  END  OF  IF 

85.  C 

86.  C  IF  TOKEN  IS  UNARY  MINUS  CHANGE  THE  S16N  OF  THE  UNARY  MINUS  FACTOR 

87.  IF  (INPUT ( INPNT) .NE . MINUS)  60  TO  40 

88.  UHINUS  >  -  UHINUS 

89.  C  AND  GET  THE  NEXT  TOKEN 

90.  GO  TO  10 

91.  C  END  OF  IF 

92.  C 

93.  40  CONTINUE 

94.  C  IF  TOKEN  IS  A  CONSTANT  OR  VARIABLE 

95.  TEMP  »  INPUT ( INPNT 1/10000 

96.  IF  ( (TEMP. NE.2) .AND. ( (TEMP.LT.7) .OR. (TEMP.6T.9) ) .AND. 

97.  I  ( TEHP.LT. 13) )  GO  TO  400 
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*8. 

99. 

too. 

101. 

102. 

103. 

104. 

105. 
104. 

107. 

108. 

109. 

110. 
til. 
112. 

113. 

114. 

115. 

116. 

117. 

118. 

119. 

120. 
121. 
122. 

123. 

124. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 


C  THEN  HULTIPLY  BY  UNARY  MINUS  FACTOR  AND  MOVE  THE  TOKEN  TO 
C  COLUMN  TUO  OF  THE  TRIPLE  ARRAY 

TRIPLE(TRPRDU,2)  =  INPUT(INPNT)  *  UMINUS 
C  END  OF  IF 
C 

C  RESET  UNARY  MINUS  FACTOR  TO  POSITIVE 
UMINUS  »  +1 

C  GET  THE  NEXT  TOKEN 
INPNT  =  INPNT  4  1 

C  PLACE  SUBTRACT  CODE  IN  COLUMN  ONE  OF  TRIPLE  ARRAY 
TRIPLEtTRPROU, 1 )  =  SUB 
C 

C  OBTAIN  THE  PROPER  CODE  FOR  THE  RELATIONAL  OPERATOR 
C  REPEAT 

C  COMPARE  INPUT  TOKEN  WITH  RELATIONAL  OPERATOR  ARRAY 

BO  50  RELPNT  *  1,6 

IF  ( INPUT ( INPNT ) .EQ. RELOPS ( 1 , RELPNT ) )  GO  TO  60 
50  CONTINUE 

C  END  OF  REPEAT 

C 

60  CONTINUE 

C  PLACE  THE  PROPER  BRANCH  CODE,  BASED  ON  THE  RELATIONAL  OPERATOR, 

C  IN  CDLUHN  ONE  OF  THE  NEXT  TRIPLE  RQU 

TR1PLE1TRPR0U  4  1,  1>  *  REL0PS<2, RELPNT ) 

C  PLACE  'POP'  OPERATOR  IN  COLUMN  TUO  OF  THE  TRIPLE  ARRAY 
TRIPLE1TRPRDU  +  1,  2)  =  POP 

C  RETAIN  THE  TRIPLE  ROU  NUMBER  FOR  LATER  INSERTION  OF  BRANCH  ADDRESS 
REMBER  =  TRPROU  +  1 
70  CONTINUE 

INPNT  =  INPNT  4  1 

C  IF  THE  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  THE  NEXT  TOKEN 
IF  ( INPUT (INPNT ) .EQ.PLUS)  GO  TO  70 
C  END  OF  IF 
C 

C  IF  TOKEN  IS  UNARY  MINUS  CHANGE  THE  SIGN  OF  THE  UNARY  MINUS  FACTOR 
IF  (INPUT(INPNT).NE. MINUS)  GO  TO  90 
UMINUS  =  -  UMINUS 
C  AND  GET  THE  NEXT  TOKEN 
GO  TO  70 
C  END  OF  IF 
C  * 

90  CONTINUE 

C  IF  TOKEH  IS  A  CONSTANT  OR  VARIABLE 
TEMP  =»  INPUT ( INPNT)/ 10000 

IF  ( (TEMP.NE.2) .AND. ( (TEMP.LT.7) .OR. (TEMP. GT .9) ) .AND. 

«  (TEMP. LT. 15))  GO  TO  400 

C  THEN  MULTIPLY  BY  UNARY  MINUS  FACTOR  AND  MOVE  THE  TOKEN  TO 
C  COLUMN  THREE  OF  THE  TRIPLE  ARRAY 

TRIPLE(TRPR0U,3)  *  INPUT ( INPMT )  *  UMINUS 
INPNT  «  INPNT  4  1 
GO  TO  500 
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149.  C  END  OF  IF 

150.  C 

151.  400  CONTINUE 

152.  C  PRINT  ERROR  MESSAGE 

153.  PRINT,  "ERROR — TOKEN  NOT  A  CONSTANT  OR  VARIABLE.  TOKEN  »  ", 

154.  t  INPUT(INPNT) 

155.  TRPROU  =  TRPROU  +  1 

154.  INPNT  =  INPUT  *  1 

157.  500  CONTINUE 

158.  TRPROU  =  TRPROU  ♦  1 

159.  RETURN 

160.  END 

161. 


CfEJECT 


SUBROUTINE  POSTFX  (BRADDR,  NUNBX,  INPNT,  INPUT,  OUTPUT, 
2  PRTLVL,  REHBER,  TRIPLE,  TRPROU) 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 

23. 
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25. 

26. 

27. 

28. 

29. 
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31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 


C 

C  XXXXX  XXXXX  XXXXX  XXXXX  XXXXX  X  X 
CXXXXX  XX  XX 

C  XXXXX  X  X  XXXXX  X  XXXX  X 

CX  XX  XXX  XX 

C  X  XXXXX  XXXXX  XX  XX 

c 

CMMMM  FUNCTION  OF  MODULE  *■*♦  +  +  **.* 

c 

C  POSTFX  TAKES  AN  INFIX  ASSIGNMENT  CLAUSE  AS  INPUT  AND  CONVERTS 

C  IT  INTO  AN  EXPRESSION  OF  POSTFIX  NOTATION  UHICH  IS  OUTPUT. 

C 

C********  PROCEDURE  FOLLOWED  ******** 

C 

C  IF  THE  TOKEN  IS  AN  END  DELIMITER  OR  A  RENARK,  THE  TOKENS  IN  THE 

C  STACK  ARE  OUTPUT  UNTIL  THE  STACK  IS  EMPTY.  IF  THE  TOKEN  IS 

C  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  TOKEN  IS  A  MINUS  SIGN  A 

C  CHECK  IS  MADE  TO  DETERMINE  IF  IT  IS  A  UNARY  MINUS.  IF  IT  IS 

C  A  UNARY  MINUS,  THE  CONSTANT  OR  VARIABLE  TOKEN  ON  UHICH  IT 
C  OPERATES  IS  CHANGED  TO  A  NEGATIVE  VALUE. 

C  IF  THE  TOKEN  IS  A  CONSTANT  OR  A  VARIABLE,  IT  IS  MOVED  DIRECTLY 

C  TO  THE  OUTPUT.  IF  THE  TOKEN  IS  AN  OPERATOR  AND  THE  STACK  IS 

C  EMPTY,  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  STACK  IS  NOT  EMPTY, 

C  THE  TOKEN  IS  COMPARED  UITH  THE  TOKEN  AT  THE  TOP  OF  THE  STACK 

C  AND  IF  THE  STACK  TOKEN  IS  OF  EQUAL  OR  HIGHER  PRECEDENCE  IT  IS 

C  MOVED  TO  OUTPUT.  OTHERWISE  IF  THE  TOKEN  IS  ')',  BOTH  IT  AND 

C  THE  '('  FROM  THE  STACK  ARE  DISREGARDED.  FINALLY  IF  NONE  OF  THE 

C  ABOVE  CONDITIONS  ARE  TRUE,  THE  TOKEN  IS  PUSHED  ONTO  THE  STACK 

C  AND  THE  NEXT  TOKEN  IS  FETCHED.  TOKEN  ORDER-OF-PRECEDENCE  FROM 
C  LOUEST  TO  HIGHEST  IS  OPENING  PARENTHESIS  '(',  CLOSINC  PARENTHESIS 
C  ')',  PLUS  OR  MINUS  SIGN  '*  OR  MULTIPLY  OR  DIVIDE  '*  OR  /' , 

C  EXPODENTI AT10N  '**',  UNARY  MINUS,  AND  FUNCTIONS. 

C 

C  *  *  ******  SUBROUTINES  CALLED  ******** 

C 

C  BLDTRP-MOVES  POSTFIX-ORDERED  TOKENS  INTO  ARRAY  OF  ORDERED  TRIPLES 
C 

Cmmmm  »’  iRIABLE  DECLARATIONS  *=♦****♦* 

C 

C  PARAMETERS 
C 

C  BRADDR-INTEGER  ARRAY,  LENGTH  20,  HOLDS  INTERNAL  ADDRESS  OF  TRIPLE 
C  ROUS  UHICH  UILL  GET  UNCONDITIONAL  BRANCH  TO  END  OF  TRIPLS 

C  NUMBX  -INTEGER,  COUNTS  THE  NUMBER  OF  PLACES  FOR  UNCONDITIONAL 


C  BRANCH  TO  END  OF  TRIPLES,  INCREMENTS  THE  BRADDR  ARRAY 
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48.  C  INPUT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 

49.  C  INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSIN6  TOKENS  TO  THIS 

50.  C  NODULE 

51.  C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  RETURNING  POSTFIX 

52.  C  ARITHNEIC  EXPRESSION 

53.  C  PRTLVL-1NTEGER,  VARIALBE  TO  ALLOU  PRINTING  OF  EXTRA  INFORNATION 

54.  C  UHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 

55.  C  SYSTEM 

54.  C  REMBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 

57.  C  ADDRESS  FROM  BLDTRP  SUBROUTINE 

58.  C  TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 

59.  C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 

40.  C 

41.  INTEGER  BRADDR (20 ) ,  INPNT,  INPUT 4100),  NUMBX,  OUTPUT(IOO), 

42.  4  PRTLVL,  RENBER,  TRIPLE(80,3) ,  TRPROU 

43.  C 

44.  C  LOCAL  VARIABLES 

45.  C 

44.  C  ARRPNT-INTEGER,  POINTS  TO  ENTRIES  IN  THE  PRECEDENCE  ARRAY 

47.  C  CPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  CLOSING  PARENTHESIS 

68.  C  ELSE  -INTEGER,  POSSIBLE  INPUT  TOKEN  142409 

69.  C  MINUS  -INTEGER,  POSSIBLE  INPUT  TOKEN  50006 

70.  C  NOSAVE-INTEGER,  POSSIBLE  INPUT  TOKEN  144002 

71.  C  OPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  OPENING  PARENTHESIS 

72.  C  OUTPUT-INTEGER,  POINTS  TO  TOKENS  IN  OUTPUT  VECTOR 

73.  C  PLUS  -INTEGER,  PUSSIBLE  INPUT  TOKEN  50005 

74.  C  PREC  -INTEGER  ARRAY,  SIZE  2  BY  18,  HOLDS  PRECEDENCE  OF 

75.  C  ARITHMETIC  OPERATORS 

76.  C  PRECS  -INTEGER,  PRECEDENCE  OF  TOKEN  AT  TOP  OF  THE  STACK 

77.  C  „  PRECT  -INTEGER,  PRECEDENCE  OF  TOKEN  CURRENTLY  UNDER  CONSIDERATION 

78.  C  STACK  -INTEGER  ARRAY,  LENGTH  30,  STACK  FOR  PROCESSING  OPERATORS 

79.  C  STKPNT-INTEGER,  POINTER  TO  NEXT  EMPTY  POSITION  ON  THE  STACK 

80.  C  TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 

81.  C  CONSTANT 

82.  C  THEN  -INTEGER,  POSSIBLE  INPUT  TOKEN  142408 

83.  C  UMINUS-INTEGER,  UNARY  MINUS  MULTIPLYING  FACTOR 

84.  C 

85.  INTEGER  ARRPNT ,  CPAREN,  ELSE,  END,  IF,  HINUS,  OPAREN,  OUTPNT, 

86.  4  PLUS,  PREC (2, 18 > ,  PRECS,  PRECT,  ST ACK ( 30 ) ,  STKPNT ,  TEMP, 

87.  4  THEN,  UNINUS 

88.  DATA  CPAREN/50004/ ,  ELSE/142409/,  END/50030/,  IF/140805/, 

89.  4  HINUS/50006/,  NOSAVE/144002/,  OPAREN/50003/,  PLUS/50005/, 

90.  4  THEN/142408/ 

91.  DATA  PREC/50003,  0,  50004,  1,  50005,  3,  50004,  3,  50007,  4, 

92.  4  50008,  4,  50009,  5,  50010,  2,  60001,  7,  40002,  7,  40003,  7, 

93.  4  60004,  7,  60005,  7,  60006,  7,  60007,  7,  60008,  7,  60009,  7, 

94.  4  60010,  7/ 

95.  C 

96.  c********  EXECUTABLE  CODE  ******** 

97.  C 

98. 


OUTPNT  »  1 
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150. 

151. 

152. 

153. 

154. 

155. 

156. 

157. 

158. 

159. 

160. 
161. 
162. 

163. 

164. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 

180. 
>81. 
182. 

183. 

184. 

185. 

186. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 

194. 
193. 

196. 

197. 

198. 

199. 

200. 


C 

C 

60 

C 

C 

C 

C 

C 

C 


C 

C 

70 

C 

C 

C 

C 

C 

C 

C 

BO 

C 

C 


C 

C 

90 

C 

C 

C 

100 

C 

110 

C 

C 

c 

c 

c 


END  OF  IF. 

CONTINUE 

IF  TOKEN  IS  OR 

IF ( ( INPUT ( IMPNT) .NE .PLUS) .AND. (INPUT ( INPUT) .NE. MINUS) )  GO  TO  80 
THEN  IF  THIS  IS  THE  FIRST  TOKEN  OF  THIS  ASSIGNMENT  CLAUSE 
THEN  TOKEN  IS  A  UNARY  MINUS  OR  UNARY  PLUS 
IF  (INPNT.E0.1 )  GO  TO  70 
END  OF  IF. 

ELSE  IF  PREVIOUS  TOKEN  IS  A  FUNCTION  OR  OPERATOR  BUT  NOT  ')' 
THEN  TOKEN  IS  A  UNARY  MINUS  OR  UNAPY  PLUS 
TEMP  =  INPUT ( INPNT  -  D/10000 
IF  < ( < TEMP.NE.5) .AND, < TEMP. NE.6) ) .OR. 
t  ( INPUT (INPNT-1 ) .EQ.CPAREN))  GO  TO  80 

END  OF  IF. 

END  OF  IF. 

CONTINUE 

\ 

IF  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  NEXT  TOKEN 
IF  (INPUT (INPNT ) .EG). PLUS)  GO  TO  20 
END  OF  IF 

IF  TOKEN  IS  UNARY  MINUS  CHANGE  SIGN  OF  UNARY  MINUS  FACTOR 
UHINUS  =  -UNINUS 
RETURN  FOR  NEXT  TOKEN 
GO  TO  20 
END  OF  IF. 

CONTINUE 

IF  STACK  IS  EMPTY 

IF  (STKPNT.NE.1 )  00  TO  90 
THEN  PUSH  TOKEN  ONTO  STACK 

STACK (STKPNT)  =  INPUT  < IHPNT) 

STKPNT  =  STKPNT  +  1 
GO  TO  20 
END  OF  IF. 

CONTINUE 

ASSIGN  PRECEDENCE  OF  OPERATOR  AT  TOP  OF  STACK  TO  'PRECS7 
REPEAT 

CQHPARE  TOKEN  AT  TOP  OF  STACK  WITH  PRECEDENCE  ARRAY 
DO  100  ARRPNT  =  1,18 

IF  <STACK(STKPNT  -  1 ) .EQ.PRECd , ARRPNT) )  GO  TO  110 
END  OF  REPEAT. 

PRECS  *  PREC<2, ARRPNT) 

ASSIGN  PRECEDENCE  OF  OPERATOR  CURRENTLY  UNDER  CONSIDERATION  TO 
7PRECT7 
REPEAT 

COMPARE  INPUT  TOKEN  WITH  PRECEDENCE  ARRAY 
DO  120  ARRPNT  =  1,18 

IF  (INPUT (INPNT) . EQ.PRECd, ARRPNT))  GO  TO  130 


120 


201. 

c 

END 

1  OF  REPEAT. 

202. 

130 

PRECT  =  PRFC(2,ARRPNT) 

203. 

C 

204. 

C 

COMPARE  PRECEDENCE  OF  TOKEN  AT  TOP  OF  STACK  WITH  INPUT 

TOKEN 

205. 

C 

IF 

PRECS  >  OR  *  PRECT 

206. 

IF  (PRECS.LT. PRECT)  GO  TO  140 

207. 

c 

THEN  MOVE  TOP  OF  STACK  OPERATOR  TO  OUTPUT  AND  COMPARE  TOKEN 

208. 

c 

OPERATOR  TO  NEXT  OPERATOR  IN  STACK. 

20?. 

STKPNT  =  STKPNT  -  1 

210. 

OUTPUT(OUTPNT)  =  STACK(STKPNT) 

211. 

OUTPNT  =  OUTPNT  +  1 

212. 

GO  TO  80 

213. 

140 

CONTINUE 

214. 

C 

ELSE  IF  TOKEN  =  ')' 

215. 

IF  ( INPUT ( INPNT ) .NE. CP AREN)  GO  TO  150 

216. 

C 

DISREGARD  BOTH  THE  TOKEN  AND  '(',  AND  GET  NEXT  INPUT 

TOKEN 

217. 

STKPNT  =  STKPNT  -  1 

218. 

GO  TO  20 

219. 

C 

END  OF  IF. 

220. 

150 

CONTINUE 

221. 

C 

ELSE  PUSH  TOKEN  ONTO  STACK 

222. 

STACK(STKPNT)  =  INPUT ( INPNT) 

223. 

STKPNT  =  STKPNT  +  1 

224. 

GO  TO  20 

225. 

c 

END 

'  OF  IF. 

226. 

c 

227. 

500 

CONTINUE 

228. 

C 

PLACE  AN  IDENTIFIALBE  DELIMITER  ONTO  THE  STACK 

22?. 

OUTPUT (OUTPNT)  =  END 

230. 

C 

231. 

C 

IF 

PRTLVL  =  0  URITE  OUT  THE  POSTFIX  ASSIGNMENT  CLAUSE 

232. 

IF  (PRTLVL. EQ.O)  URITE  (6,505)  (OUTPUT(I),  I  *  1,  OUTPNT) 

233. 

c 

END 

i  OF  IF 

234. 

c 

235. 

CALL  BLDTRP  (BRADDR,  NUMBX,  OUTPNT,  OUTPUT,  REMBER, 

TRIPLE, 

236. 

t 

TRPROU) 

237. 

505 

FORMAT  ('  16(17,  IX)) 

238. 

RETURN 

239. 

END 

240. 

CIEJEC7 

L 
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1.  SUBROUTINE  BLDTRP  (BRADDR,  NUHBX,  OUTPNT,  OUTPUT,  REhBER,  TRIPLE, 

2.  i  TRPROU) 

3.  C 


4. 

C 

XXXX  X 

XXXX 

XXXXX 

XXXXX  XXXXX 

5. 

C 

X  XX 

X  X 

X 

XXXX 

6. 

C 

XXXX  X 

X  X 

X 

XXXXX  XXXXX 

7. 

C 

X  XX 

X  X 

X 

X  X  X 

8. 

C 

XXXX  XXXXX 

XXXX 

X 

X  X  X 

9. 

C 

10. 

C 

*  $  4  *  *  * 

*  *  FUNCTION 

OF  MODULE  * 

11.  C 

12.  C  BLDTRP  ACCEPTS  THE  VECTOR  OF  ASSIGNMENT  CLAUSE  TOKENS  WHICH  ARE 

13.  C  IH  POSTFIX  ORDER  AS  INPUT  AND  PROCESSES  THEM  INTO  AN  ARRAY  OF 

14.  C  ORDERED  TRIPLES  UHICH  ARE  OUTPUT. 

15.  C 

16.  c**  *******  PROCEDURE  FOLLOUED  ******** 

17.  C 

18.  C  THE  VECTOR  OF  ASSIGNMENT  CLAUSE  TOKENS  IS  PARSED  UNTIL  AN 

19.  C  OPERATOR  IS  FOUND  UHICH  IS  PLACED  IN  THE  FIRST  COLUMN  OF  THE 

20.  C  ARRAY  OF  ORDERED  TRIPLES.  THEN  THE  NODULE  BACKSPACES  IN  THE 

21.  C  ASSIGNMENT  CLAUSE  VECTOR  TO  FIND  THE  OPERAHD(S)  FOR  THAT 

22.  C  OPERATOR.  ONE  OPERAND  IS  REQUIRED  FOR  FUNCTION  OPERATORS  AND 

23.  C  TUO  OPERANDS  FOR  THE  COMMON  BINARY  OPERATORS.  THE  OPERAND(S) 

24.  C  ARE  PLACED  IN  THE  SECOND  AND  THIRD  COLUMNS  OF  THE  ORDERED 

25.  C  TRIPLE  ARRAY.  THE  INPUT  VECTOR  POSITION  OF  THE  OPERAND  OF 

26.  C  UNARY  OPERATORS  AND  THE  SECOND  OPERAND  OF  BINARY  OPERATORS  ARE 

27.  C  REPLACED  WITH  THE  'POP'  OPERATOR  <113)  UHICH  WILL  POP  THE  TOP 

28.  C  INTERIM  RESULT  FROM  A  STACK  DURING  EXECUTION.  THE  INPUT  VECTOR 

29.  C  LOCATION  OF  OPERATORS  AND  FIRST  OPERAND  OF  THE  BINARY  OPERATORS 

30.  C  ARE  ASSIGNED  A  VALUE  OF  ZERO  TO  INDICATE  THE  OPERATOR  OR  OPERAND 

31.  C  HAS  BEEN  MOVED  TO  THE  TRIPLE  ARRAY.  THE  ARRAY  OF  ORDERED 

32.  C  TRIPLES  IS  RETURNED  TO  THE  CALLING  MODULE. 

33.  C 

34.  c********  VARIABLE  DECLARATIONS  ******** 

35.  C 

36.  C  PARAMETERS 

37.  C 

38.  C  BRADDR-INTEGER  ARRAY,  LENGTH  20,  HOLDS  INTERNAL  ADDRESS  OF  TRIPLE 

39.  C  ROUS  UHICH  UILL  GET  UNC0ND1TI0HAL  BRANCH  TO  END  OF  TRIPLES 

40.  C  NUHBX  -INTEGER,  COUNTS  THE  NUMBER  OF  PLACES  FOR  UNCONDITIONAL 

41.  C  BRANCH  70  END  OF  TRIPLES,  INCREMENTS  THE  BRADDR  ARRAY 

42.  C  OUTPNT-IHTEGER,  BRINGS  IN  POINTER  TO  LAST  TOKEN  IH  OUTPUT  VECTOR; 

43.  C  ALSO  USED  AS  POINTER  IN  OUTPUT  VECTOR 

44.  C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 

45.  C  ASSIGNMENT  CLAUSE 

46.  C  REMBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 
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47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 
53. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 


C  ADDRESS  FROH  BIDTRP  SUBROUTINE 

C  TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 

C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 
C 

INTEGER  BRADDR(20) ,  NUNBX,  OUTPNT,  OUTPUT(IOO),  RENBER, 

3  TRIPLE(80,3) ,  TRPRQU 

C 

C  LOCAL  VARIABLES 
C 

C  BEGIN  -INTEGER,  KEEPS  POSITION  IN  OUTPUT  VECTOR  UHERE  LAST 
C  OPERAND  UAS  FOUND 

C  END  -INTEGER,  DELIMITER  FOR  POSTFIX  STACK 

C  POP  -INTEGER,  OPERATOR  TO  POP  THE  TOP  INTERIM  ORDERED  TRIPLE 

C  RESULT  FROM  A  STACK 

C  STAKLN-INTEGER,  STORES  LENGTH  OF  THE  POSTFIX  STACK 

C  TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 
C  CONSTANT 

C 

INTEGER  BEGIN,  BRANCH,  END,  POP,  STAKLN,  TEMP 
DATA  BRANCH/50017/,  END/50030/,  POP/50019/ 

C 

Cmmmm  EXECUTABLE  CODE  ******** 

C 

STAKLN  =  OUTPNT 
BE6IN  »  1 
OUTPNT  =  1 
C 

10  CONTINUE 

C  REPEAT 

C  WHILE  THE  TOKEN  IS  NOT  THE  'END'  DELIMITER 

IF  (OUTPUT (OUTPNT) .EQ.EHD)  GO  TO  500 
C  DO  PARSE  THE  TOKENS,  MOVING  OPERATORS  AND  OPERANDS  INTO  THE 

C  PROPER  PLACE  IN  THE  ARRAY  OF  ORDERED  TRIPLES 

C 

C  REPEAT 

C  PARSE  THE  POSTFIX  VECTOR  UNTIL  AN  OPERATOR  IS  FOUND 

C  STARTING  UHERE  LAST  OPERAND  UAS  FOUND 

DO  30  OUTPNT  =  BEGIN,  STAKLN 

C  IF  POSTFIX  STACK  DELIMITER  IS  ENCOUNTERED,  STOP  SUBROUTINE 

IF  ( OUTPUT ( OUT PNT ) .EQ. END)  GO  TO  500 
C  END  OF  IF 

TEMP  =  OUTPUT(OUTPNT)/10000 
IF  ((TEMP. EQ. 5). OR. (TEMP. EQ. 6))  GO  TO  40 
30  CONTINUE 

C  END  OF  REPEAT 

C 

40  BEGIN  »  OUTPNT  +  1 

TRPROU  =  TRPRQU  +  1 

C  PLACE  OPERATOR  FOUND  IN  FIRST  COLUMN  OF  THE  TRIPLE  ARRAY 
TRIPLE  (TRPROU,  1  >  >  OIJTPUT(OUTPNT) 

C  BLANK  OUT  THE  POSITION  OF  THE  OPERATOR  TOKEN  IN  THE  POSTFIX  ARRAY 
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98. 

99. 
100. 
101. 
102. 

103. 

104. 

105. 
104. 

107. 

108. 

109. 

110. 
111. 
112. 

113. 

114. 

115. 

116. 

117. 

118. 

119. 

120. 
121. 
122. 

123. 

124. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 


OUTPUT(OUTPNT)  -O' 

C  REPEAT 

C  BACKSPACE  IN  OUTPUT  VECTOR  UNTIL  OPERAND  OR  PREVIOUS  TRIPLE 

C  INTERIM  RESULT  IS  FOUND 

DO  50  I  ~  1 ,  STAKLN 
OUTPNT  =  OUTPNT  -  1 
TENP  =  I ABS ( OUTPUT ( OUTPNT ) /1 0000 ) 

IF  ( (TENP.EQ.  2) .OR. < (TENP. GE.7) .AND. (TENP.LE.9) ) .OR. 
i  <TENP.GE.15).QR. ( OUTPUT ( OUTPNT ) .EQ. POP) )  GO  TO  70 

50  CONTINUE 

C  END  OF  REPEAT 

C 

70  CONTINUE 

C  PLACE  FIRST  OPERAND  IN  THIRD  COLUMN  OF  TRIPLE  ARRAY 
TRIPLE(TRPR0U,3)  =  OUTPUT(OUTPNT) 

C  STORE  /POP-'  OPERATOR  IN  THE  POSTFIX  STRING 

OUTPUT  (OUTPNT)  =>  POP 

C  IF  OPERATOR  UAS  A  UNARY  OPERATOR  (FUNCTION),  THEN  GET  NEXT  TOKEN 
IF  < (TRIPLE(TRPR0U,1 ) )/10000.EQ.6)  GO  TO  10 
C  ELSE  GET  THE  SECOND  OPERAND 

C  REPEAT 

C  BACKSPACE  IN  OUTPUT  VECTOR  UNTIL  OPERAND  OR  PREVIOUS  TRIPLE 

C  INTERIM  RESULT  IS  FOUND 

DO  90  I  *  1,  STAKLN 
OUTPNT  =  OUTPNT  -  1 
TEMP  *  I ABS (OUTPUT (OUTPNT) /1 0000) 

IF  < (TEMP.EQ.  2). OR. ((TEMP. GE.7). AND. (TEMP. LE. 9)). OR. 
1  (TEMP.GE. 15) .OR. (OUTPUT (OUTPNT ) .EQ.POP) )  GO  TO  100 

90  CONTINUE 

C  END  OF  REPEAT 

C  END  OF  IF 
C 

100  CONTINUE 

C  PLACE  SECOND  OPERAND  IN  SECOND  COLUMN  OF  TRIPLE  ARRAY 

TRIPLE(TRPROU, 2)  =  OUTPUT(OUTPNT) 

C  BLANK  OUT  THE  POSITION  OF  THE  OPERAND  TOKEN  IN  POSTFIX  STRING 

OUTPUT (OUTPNT)  »  0 
C  END  OF  IF 

C  GET  THE  NEXT  TOKEN 

GO  TO  10 

C  END  OF  REPEAT  UHILE 
C 

500  CONTINUE 

C  IF  A  RELATIONAL  EXPRESSION  EXISTS  IN  THE  ORDERED  TRIPLES 

IF  (REMBER.EO.O)  GO  TO  600 

C  THEN  INSERT  THE  ADDRESS  OF  THE  NEXT  TRIPLE  ROU  AS  THE  ADDRESS  OF 
C  THE  CONDITIONAL  BRANCH  ASSOCIATED  UITH  THE  RELATIONAL 

C  EXPRESSION. 

TRIPLE(REHBER,3)  *  TRPROU  ♦  2 
C  ZERO  OUT  PARAMETER 

REHBER  »  0 
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I 

i 


149. 

150. 

151. 

152. 

153. 

154. 

155. 
154. 

157. 

158. 

159. 

160. 
161. 
162. 


TRPROU  *  TRPROU  +  1 

C  INSERT  UNCONDITIONAL  BRANCH  OPERATOR  INTO  ORDERED  TRIPLES 

C  (THE  ADDRESS  OF  THIS  BRANCH  IS  INSERTED  IN  SUBROUTINE  CTRIPS) 
TRIPLE ( TRPROU, 1)  *  BRANCH 

C  INCREMENT  THE  NUMBER  OF  TINES  AN  UNCONDITIONAL  BRANCH  ADDRESS 
C  HAS  BEEN  SAVED 

NUMBX  »  NUMBX  +  1 

C  SAVE  THE  INTERNAL  TRIPLE  ADDRESS  FOR  USE  IN  CTRIPS  SUBROUTINE 
BRADDR(NUHBX)  =  TRPROU 
C  END  OF  IF 
C 

600  RETURN 

END 

CIEJECT 


\ 


66 


1.  SUBROUTINE  PSTFXS  (INPUT,  PRTLVL,  TRIPLE,  TRPRQU) 

2.  C 


3. 

c 

XXXXX 

XXXXX 

XXXXX 

XXXXX 

X 

X 

XXXXX 

4. 

c 

X  X 

X 

X 

X 

X  X 

X 

5. 

c 

XXXXX 

XXXXX 

X 

xxxx 

X 

XXXXX 

0. 

c 

X 

X 

X 

X 

X  X 

X 

7. 

c 

X 

XXXXX 

X 

X 

X 

X 

XXXXX 

8.  C 

9.  c  ********  FUNCTION  OF  NODULE  ******** 

10.  C 

11.  C  PSTFXS  TAKES  A  BOOLEAN  EXPRESSION  CONPOSED  OF  LOGICAL  OPERATORS 

12.  C  WITH  RELATIONAL  EXPRESSION  OPERANDS  AS  INPUT  AND  CONVERTS  THEN 

13.  C  INTO  POSTFIX  NOTATION  UHICH  IS  OUTPUT. 

>4.  C 

15.  c********  PROCEDURE  FOLLOUED  ******** 

10.  C 

17.  C  IF  THE  TOKEN  IS  AN  END  DELIHITER  OR  A  REMARK,  THE  TOKENS  IN  THE 

18.  C  STACK  ARE  OUTPUT  UNTIL  THE  STACK  IS  EMPTY.  IF  THE  TOKEN  IS  '(', 

19.  C  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  TOKEN  IS  A  MINUS  SIGN  A 

20.  C  CHECK  IS  MADE  TO  DETERMINE  IF  IT  IS  A  UNARY  MINUS.  IF  IT  IS 

21.  C  A  UNARY  MINUS,  THE  CONSTANT  OR  VARIABLE  TOKEN  ON  UHICH  IT 

22.  C  OPERATES  IS  CHANGED  TO  A  NEGATIVE  VALUE.  IF  THE  TOKEN  IS  AN 

23.  C  OPERAND  (OR  PORTION  OF  AN  OPERAND)  OF  A  LOGICAL  OPERATOR  (.AND., 

24.  C  .OR.)  TO  THE  OUTPUT.  IF  THE  TOKEN  IS  AN  OPERATOR  AND  THE  STACK  IS 

25.  C  EMPTY,  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  STACK  IS  NOT  EMPTY, 

20.  C  THE  TOKEN  IS  COMPARED  WITH  THE  TOKEN  AT  THE  TOP  OF  THE  STACK 

27.  C  AND  IF  THE  STACK  TOKEN  IS  OF  EQUAL  OR  HIGHER  PRECEDENCE  IT  IS 

28.  C  MOVED  TO  OUTPUT.  OTHERUISE  IF  THE  TOKEN  IS  ')',  BOTH  IT  AND 

29.  C  THE  '('  FROH  THE  STACK  ARE  DISREGARDED.  FINALLY  IF  NONE  OF  THE 

30.  C  ABOVE  CONDITIONS  ARE  TRUE,  THE  TOKEN  IS  PUSHED  ONTO  THE  STACK 

31.  C  AND  THE  NEXT  OPERATOR  FETCHED.  OPERATOR  ORDER-OF-PRECEDENCE  FROH 

32.  C  LOWEST  TO  HIGHEST  IS  OPENING  PARENTHESIS  '(',  CLOSING  PARENTHESIS 

33.  C  ')',  LOGICAL  OR  '.OR.',  AND  LOGICAL  AND  '.AND.'. 

34.  C 

35.  c********  SUBROUTINES  CALLED  ******** 

30.  C 

37.  C  TRIPLS-MOVES  POSTFIX-ORDERED  TOKENS  INTO  ARRAY  OF  ORDERED  TRIPLES 

38.  C 

39.  c********  VARIABLE  DECLARATIONS  ******** 

40.  C 

41.  C  PARAMETERS 

42.  C 

43.  C  INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  TOKENS  TO  THIS 

44.  C  MODULE 

45.  C  PRTLVL-INTEGER,  VARIALBE  TO  ALLOW  PRINTING  OF  EXTRA  INFORMATION 

40.  C  UHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 
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47. 

4B. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 
70. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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SYSTEM 

TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 
TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 

INTEGER  INPUTC100) ,  PRTLVL,  TRIPLE < 80 , 3 ) ,  TRPROU 

LOCAL  VARIABLES 


ARRPNT-INTEGER,  POINTS  TO  ENTRIES  IN  THE  PRECEDENCE  ARRAY 
CPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  CLOSING  PARENTHESIS 
IN  -INTEGER,  POSSIBLE  INPUT  TOKEN  140806 
INPNT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 
MINUS  -INTEGER,  POSSIBLE  INPUT  TOKEN  50006 
NOSAVE-INTEGER,  POSSIBLE  INPUT  TOKEN  144002 
NOT  -INTEGER,  POSSIBLE  INPUT  TOKEN  141607 
OPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  OPENING  PARENTHESIS 
OUTPNT-INTEGER,  POINTS  TO  TOKENS  IN  OUTPUT  VECTOR 
OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 
BOOLEAN  EXPRESSION 

PLUS  -INTEGER,  POSSIBLE  INPUT  TOKEN  50005 
PREC  -INTEGER  ARRAY,  SIZE  2  BY  4,  HOLDS  PRECEDENCE  OF 
ARITHMETIC  OPERATORS 

PRECS  -INTEGER,  PRECEDENCE  OF  TOKEN  AT  TOP  OF  THE  STACK 
PRECT  -INTEGER,  PRECEDENCE  OF  TOKEN  CURRENTLY  UNDER  CONSIDERATION 
STACK  -INTEGER  ARRAY,  LENGTH  30,  STACK  FOR  PROCESSING  OPERATORS 
STKPNT-INTEGER,  POINTER  TO  NEXT  EMPTY  POSITION  ON  THE  STACK 
TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 
CONSTANT 

UNINUS-INTEGER,  UNARY  MINUS  MULTIPLYING  FACTOR 

INTEGER  ARRPNT,  CPAREN,  END,  IN,  INPNT,  MINUS,  NOSAVE,  NOT, 
t  OPAREN,  OUTPNT ,  OUTPUT ( 100) ,  PLUS,  PREC<2,4),  PRECS,  PRECT, 

&  STACK < 30 ) ,  STKPNT,  TEMP,  UMINUS 


CONSTANTS 
DATA 


CPAREN/50004/,  END/50030/,  IN/140806/,  MINUS/50006/, 
NOSAVE/ 144002/,  HOT/141607/,  OPAREN/50003/,  PLUS/50005/, 
PREC/50003,  0,  50004,  1,  40001,  9,  40002,  8/ 


3  NOSAVE/ 144002/,  HOT/1416 

S  PREC/50003,  0,  50004,  1, 

********  EXECUTABLE  CODE  *  * 

INPNT  *  0 
OUTPNT  -  1 
STKPNT  *  1 
UMINUS  *  -»1 

!0  CONTINUE 

INCREMENT  THE  INPUT  ARRAY  POINTER 
INPNT  »  INPNT  *  1 


****** 


I 


*i 

A 


f%.  i^i  I  .  -.I  -*." 


98. 

99. 
100. 
101. 
102. 

103. 

104. 

103. 

104. 

107. 

108. 

109. 

110. 
111. 
112. 

113. 

114. 
113. 
116. 

117. 

118. 

119. 

120. 
121. 
122. 

123. 

124. 
123. 
126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 
133. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 


C  IF  THE  TOKEN  DELIMITS  THE  BOOLEAN  EXPRESSION  (NOSAVE,  REMARK) 

IF  ( (INPUT( INPNT). NE. NOSAVE). AND. 

6  ( (INPUT (INPNT )/10000) .NE. 1 ) )  60  TO  40 

C  THEN 

C  UHILE  THE  STACK  IS  NOT  EMPTY 

DO  30  I  *  1,30 

IF  ISTKPNT.EQ.I )  GO  TO  500 
STKPNT  =■  STKPNT  -  1 
C  MOVE  STACK  TO  OUTPUT 

OUTPUT(OUTPNT)  *  STACK(STKPNT) 

30  OUTPNT  =»  OUTPNT  +  1 

C  END  OF  UHILE 

C  END  OF  IF. 

C 

40  CONTINUE 

C  IF  THE  TOKEN  =  '(', 

IF  (INPUT (INPNT) .NE.OPAREN)  60  TO  50 
C  THEN  PUSH  TOKEN  ONTO  STACK 

STACK(STKPNT)  =  INPUT< INPNT) 

STKPNT  =  STKPNT  +  1 
60  TO  20 
C  END  OF  IF. 

C 

50  CONTINUE 

C  IF  THE  TOKEN  IS  AN  OPERAND  (OR  PORTION  OF  AN  OPERAND)  OF  A  LOGICAL 

C  OPERATOR  (CONSTANT,  VARIABLE,  IN,  NOT,  OR  A  RELATIONAL  OPERATOR) 
TEMP  =  INPUT ( INPNT)/10000 

IF  (((INPUT(INPNT)/10000).EQ. 4). OR. (INPUT (INPNT). EQ.CPAREN) 
i  . OR. ( INPUT (INPNT ).EQ. MINUS). OR. <INPUT( INPNT). EQ. PLUS) 

i  .OR. ( INPUT ( INPNT) .EQ.OPAREN) )  GO  TO  60 
C  THEN  MOVE  TOKEN  TO  OUTPUT 

OUTPUT (OUTPNT)  *  INPUT( INPNT)  *  UMINUS 
C  END  OF  IF 

C  RESET  UNARY  MINUS  FACTOR  TO  POSITIVE 
UHINUS  »  41 
OUTPNT  =■  OUTPNT  +  1 
GO  TO  20 
C 

C  IF  TOKEN  IS  OR 
60  CONTINUE 

IF( (INPUT (INPNT ) .ME. PLUS). AND. (INPUT(INPNT).NE. MINUS))  GO  TO  80 
C  THEN  IF  THIS  IS  THE  FIRST  TOKEN  OF  THIS  RELATIONAL  EXPRESSION 
C  THEN  TOKEN  IS  A  UNART  MINUS  OR  UNARY  PLUS 

IF  (INPNT. EQ.1)  GO  TO  70 
C  END  OF  IF. 

C  ELSE  IF  PREVIOUS  TOKEN  IS  A  FUNCTION  OR  OPERATOR  BUT  NOT  ')' 

C  THEN  TOKEN  IS  A  UNARY  MINUS  OR  UNARY  PLUS 

TEMP  *  INPUT< INPNT  -  1)710000 
IF  ( ( (TEHP.NE.5) .AND. (TEMP.NE.6) ) .OR. 

*  (INPUT(INPNT-I). EQ.CPAREN))  GO  TO  80 

C  END  OF  IF. 
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w. 

C 

END  OF  IF. 

150.  . 

C 

151. 

70 

CONTINUE 

152. 

C 

IF  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  NEXT  TOKEN 

153. 

IF  ( INPUT <INPNT).EQ. PLUS)  GO  TO  20 

154. 

C 

END  OF  IF 

155. 

C 

IF  TOKEN  IS  UNARY  MINUS  CHANGE  SIGN  OF  UNARY  MINUS  FACTOR 

153. 

UMINUS  =  -UHINUS 

157. 

C 

RETURN  FOR  NEXT  TOKEN 

158. 

60  TO  20 

159. 

C 

END  OF  IF. 

130. 

C 

131. 

80 

CONTINUE 

132. 

C 

IF  STACK  IS  EMPTY 

133. 

IF  (STKPNT.NE.1 )  GO  TO  90 

134. 

C 

THEN  PUSH  TOKEN  ONTO  STACK 

135. 

STACK(STKPNT)  *  INPUT(INPNT) 

133. 

STKPNT  =  STKPNT  +  1 

137. 

GO  TO  20 

138. 

C 

END  OF  IF. 

139. 

C 

170. 

90 

CONTINUE 

171. 

C 

ASSIGN  PRECEDENCE  OF  OPERATOR  AT  TOP  OF  STACK  TO  'PRECS' 

172. 

C 

REPEAT 

173. 

C 

COMPARE  TOKEN  AT  TOP  OF  STACK  UITH  PRECEDENCE  ARRAY 

174. 

DO  100  ARRPNT  »  1,4 

175. 

100 

IF  (STACK1STKPNT  -  1 ) .EQ.PRECU , ARRPNT) )  GO  TO  110 

173. 

C 

END  OF  REPEAT. 

177. 

110 

PRECS  =  PREC( 2, ARRPNT) 

178. 

C 

179. 

C 

ASSIGN  PRECEDENCE  OF  OPERATOR  CURRENTLY  UNDER  CONSIDERATION  TO 

180. 

C 

'PRECT' 

181. 

C 

REPEAT 

182. 

C 

COMPARE  INPUT  TOKEN  UITH  PRECEDENCE  ARRAY 

t83. 

DO  120  ARRPNT  «  1,4 

184. 

IF  <INPUT<INPNT).E0.PREC<1, ARRPNT))  GO  TO  130 

135. 

120 

CONTINUE 

183. 

C 

END  OF  REPEAT. 

187. 

130 

PRECT  »  PREC12, ARRPNT) 

188. 

C 

189. 

C 

COHPARE  PRECEDENCE  OF  TOKEN  AT  TOP  OF  STACK  UITH  INPUT  TOKEN 

190. 

C 

IF  PRECS  >•  PRECT 

191. 

IF  (PRECS. LT. PRECT)  CO  TO  140 

192. 

C 

THEN  MOVE  TOP  OF  STACK  OPERATOR  TO  OUTPUT  AND  COMPARE  TOKEN 

193. 

C 

OPERATOR  TO  NEXT  OPERATOR  IN  STACK. 

194. 

STKPNT  *  STKPNT  -  1 

195. 

OUTPUT (OUTPNT)  “  STACK(STKPNT) 

193. 

OUTPHT  =  OUTPNT  ♦  1 

197. 

GO  TO  80 

198. 

140 

CONTINUE 

199. 

C 

ELSE  IF  TOKEN  »  ')' 

70 


200. 

201. 

202. 

203. 

204. 

205. 

206. 

207. 

208. 

209. 

210. 
211. 
212. 

213. 

214. 

215. 

216. 

217. 

218. 

219. 

220. 
221. 
222. 
223. 


IF  ( INPUT ( INPNT ) . NE  .CP AREN )  GO  TO  150 
C  THEN  DISREGARD  BOTH  THE  TOKEN  AND  '(',  AND  GET  NEXT  TOKEN 

STKPNT  »  STKPNT  -  1 
GO  TO  20 

150  CONTINUE 

C  ELSE  PUSH  TOKEN  ONTO  STACK 

STACK(STKPNT)  =  INPUT(INPNT) 

STKPNT  ■  STKPNT  ♦  1 
GO  TO  20 

C  END  OF  IF. 

C  END  OF  IF. 

C 

500  CONTINUE 

C  PLACE  AN  IDENTIFIALBE  DELIMITER  ONTO  THE  STACK 
OUTPUT (OUTPNT)  *  END 
C 

C  IF  PRTLUL  *  0  URITE  OUT  THE  POSTFIX  BOOLEAN  EXPRESSION 

IF  (PRTLVL.EQ.O)  URITE  (6,505)  (OUTPUT(I),  1*1,  OUTPNT) 

C  END  OF  IF 
C 

505  FORMAT  ('  16(17,  IX)) 

CALL  TRIPLS  (OUTPNT,  OUTPUT,  PRTLVL,  TRIPLE,  TRPROU) 

RETURN 

END 
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1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 


r 

SUBROUTINE 

TRIPLS 

(OUTPNT,  OUTPUT,  PRTLVL,  TRIPLE,  TRPROU) 

L 

c 

XXXXX  XXXXX  XXX 

XXXXX 

X 

XXXXX 

c 

X 

XXX 

X  X 

X 

X 

c 

X 

XXXXX  X 

XXXXX 

X 

XXXXX 

c 

X 

XXX 

X 

X 

X 

c 

X 

X  X  XXX 

X 

XXXXX 

XXXXX 

C 

C********  FUNCTION  OF  NODULE  ******** 

C 

C  TRIPLS  ACCEPTS  THE  VECTOR  OF  BOOLEAN  EXPRESSION  TOKENS  UHICH  ARE 

C  IN  POSTFIX  ORDER  AS  INPUT  AND  PROCESSES  THEN  INTO  AN  ARRAY  OF 

C  ORDERED  TRIPLES  UHICH  ARE  OUTPUT. 

C 

c  :*  *******  PROCEDURE  FOLLOWED  ******** 

C 

C  THE  VECTOR  OF  BOOLEAN  EXPRESSION  TOKENS  IS  PARSED  AND  THE 
C  TOKENS  IDENTIFIED.  LOGICAL  OPERATORS  (.AND.,  .OR.)  ARE  MOVED 
C  TO  COLUMN  ONE  OF  THE  TRIPLE  ARRAY.  THE  OPERANDS  •'IN  GROUP/ 

C  MODULE'  OR  'NOT  IN  GFOUP/MODULE'  ARE  MOVED  DIRECTLY  TO  A  TRIPLE. 

C  THE  OPERANDS  OF  RELATIONAL  EXPRESSIONS  ARE  PLACED  IN  COLUMNS  TUO 

C  AND  THREE  OF  THE  TRIPLE  UITH  THE  'SUB'  COMNAND  IN  COLUMN  ONE. 

C  A  CONDITIONAL  AND  UNCONDITIONAL  BRANCH  ARE  PLACED  IN  THE  TRIPLES 

C  TO  CAUSE  A  'V  TO  BE  PUSHED  ONTO  THE  STACK  IF  THE  RELATIONAL 

C  EXPRESSION  IS  TRUE  OR  A  '0'  IF  IT  IS  FALSE.  THE  FINAL  TRIPLE 

C  IS  GIVEN  THE  COMMAND  'SETHSK'  UHICH  UILL  POP  THE  FINAL  RESULT 

C  OF  THE  BOOLEAN  EXPRESSION  FROM  THE  STACK  AND  SET  A  MASK  TO  'V 

C  IF  TRUE  OR  '0'  IF  FALSE.  THE  ARRAY  OF  ORDERED  TRIPLES  IS 
C  RETURNED  TO  THE  CALLING  MODULE. 

C 

c********  VARIABLE  DECLARATIONS  ******** 

C 

C  PARAMETERS 
C 

C  0UTPNT-1NTEGER,  BRINGS  IN  POINTER  TO  LAST  TOKEN  IN  OUTPUT  VECTOR; 
C  ALSO  USED  AS  POINTER  IN  OUTPUT  VECTOR 

C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 

C  BOOLEAN  EXPRESSION 

C  PRTLVL-INTEGER,  VARIALBE  TO  ALLOU  PRINTING  OF  EXTRA  INFORMATION 
C  UHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 

C  SYSTEM 

C  TRIPLE-INTEGER  ARRAY,  S12E  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 
C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 
C 


C 


INTEGER  OUTPNT,  OUTPUT(IOO),  PRTLVL,  TRIPLE(80,3) ,  TRPROU 
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47.  C  LOCAL  VARIABLES 


48. 

C 

49. 

C 

BEGIN 

-INTEGER,  KEEPS  POSITION  IN  OUTPUT  VECTOR 

UHERE  LAST 

50. 

C 

OPERAND  UA5  FOUND 

51. 

C 

END 

-INTEGER,  DELIMITER  FOR  POSTFIX  STACK 

52. 

C 

NOT 

-INTEGER,  POSSIBLE  INPUT  TOKEN 

141607 

53. 

C 

POP 

-INTEGER,  OPERATOR  TO  POP  THE 

TOP  INTERIH 

ORDERED  TRIPLE 

54. 

C 

RESULT  FROM  A  STACK 

55. 

C 

RELOPS 

-INTEGER  ARRAY,  SIZE  2  BY  6,  HOLDS  RELATIONAL  OPERATOR  AND 

56. 

C 

BRANCH  CODES.  THE  OPERATOR  CODES  INSERTED 

INTO  THE  ORDERED 

57. 

C 

TRIPLE  ARRAY  ARE: 

58. 

C 

INPUT  RELATIONAL 

BRANCH 

BRANCH 

59. 

C 

TOKEN  OPERATOR 

CONDITION 

CODE 

60. 

C 

30001  .EQ. 

BNZ 

50011 

61. 

C 

30002  .NE. 

BZ 

50012 

62. 

C 

30003  .GT. 

BNZ 

50013 

63. 

C 

30004  .LT. 

BPZ 

50014 

64. 

C 

30005  .GE. 

BP 

50015 

65. 

C 

30006  .LE. 

BH 

50016 

66. 

C 

SAVE 

-INTEGER,  SAVE  THE  ADDRESS  OF 

OPERAND  OF  LOGICAL  OPERATOR 

67. 

C 

TEMP 

-INTEGER,  USED  FOR  DETERMINING 

IF  TOKEN  IS 

A  VARIABLE  OR 

68. 

C 

CONSTANT 

69. 

c 

70.  INTEGER  ADD,  AND,  BEGIN/1/,  BNZ,  BRANCH,  BQOLOP,  END,  OR,  POP, 

71.  3  REL0PS(2,6),  SAVE,  SELECT,  SETNSK,  SUB,  TEMP 

72.  DATA  ADD/50019/,  AND/40001/,  BNZ/50011/,  BRANCH/50017/, 

73.  3  END/50030/,  IN/140806/,  NOT/141607/,  0R/40002/,  P0P/50019/, 

74.  3  REL0PS/30001,  50011,  30002,  50012,  30003,  50013,  30004,  50014, 

75.  3  30005,  50015,  30006,  50016/,  SELECT/50026/,  SETNSK/50020/, 

76.  3  SUB/50006/ 

77.  C 

78.  c********  EXECUTABLE  CODE  **♦*•**•* 

79.  C 

80.  OUTPNT  =  0 

81.  10  CONTINUE 

82.  OUTPNT  *  OUTPNT  ♦  1 

83.  TRPRGU  =  TRPROU  +  1 

84.  C  IF  THE  TOKEN  IS  END  DELIMITER  THEN  FINALIZE  THE  TRIPLE  ARRAY 

85.  IF  ( OUTPUT! OUTPNT ) .EQ. END)  GO  TO  400 

86.  C  END  OF  IF 

87.  C 

88.  C  IF  THE  TOKEN  IS  '.OR.-'  PLACE  IT  IN  THE  TRIPLE  ARRAY 

89.  IF  ( OUTPUT ( OUTPNT ) .NE. OR)  GO  TO  30 

90.  TRIPLE(TRPR0U,1 )  ■>  50022 

91.  GO  TO  10 

92.  C  END  OF  IF 

93.  C 

94.  30  CONTINUE 

93.  C  IF  THE  TOKEN  IS  '.AND.'  PLACE  IT  IN  THE  TRIPLE  ARRAY 

96.  IF  1  OUTPUT! OUTPNT ).NE. AND)  GO  TO  50 

97.  TRIPLE(TRPR0U,1)  «  50021 
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98. 

lit)  TO  10 

99. 

C 

END  OF  IF 

100. 

C 

101. 

50 

CONTINUE 

102. 

C 

IF  THE  TOKEN  IS  "IN'  PLACE  'IN'  AND  THE  GROUP  IDENTIFIER  IN  THE 

103. 

C 

TRIPLE  ARRAY 

104. 

IF  (OUTPUT (OUTPNT ).NE.IN)  GO  TO  70 

105. 

TRIPLE(TRPR0U,1)  =  50023 

106. 

TRIPLE (TRPROW, 3 )  =  0UTPUT(OUTPNT  +  1) 

107. 

OUTPNT  =  OUTPNT  4  1 

108. 

GO  TO  10 

109. 

C 

END  OF  IF 

110. 

C 

111. 

70 

CONTINUE 

112. 

C 

IF  THE  TOKEN  IS  'NOT-'  PLACE  'NOT  IN'  AND  THE  GROUP  IDENTIFIER  IN 

113. 

C 

THE  TRIPLE  ARRAY 

114. 

IF  (OUTPUT < OUTPNT ).NE. NOT)  GO  TO  100 

115. 

TR1PLE(TRPR0U,1)  *  50024 

116. 

TRIPLE(TRPR0U,3)  =  OUTPUTtQUTPNT  +  2) 

117. 

OUTPNT  =  OUTPNT  +  2 

118. 

GO  TO  10 

119. 

C 

END  OF  IF 

120. 

C 

121. 

C 

ANY  TOKENS  UHICH  FILTER  DQUN  TO  THIS  POINT  ARE  RELATIONAL  EXPRESSION 

122. 

C 

OPERANDS  OF  THE  LOGICAL  OPERATORS.  PLACE  THE  SUBTRACT  OPERATOR 

123. 

C 

IN  COLUMN  ONE  AND  THE  TUO  VARIABLES  OR  CONSTANTS  IN  COLUMNS 

124. 

C 

TUO  AND  THREE  OF  THE  TRIPLE  ARRAY 

125. 

100 

TRIPLE(TRPRQU,1 )  =  SUB 

126. 

TRIPLE(TRPR0U,2)  =  OUTPUT (OUTPNT) 

127. 

TRIPLE(TRPR0U,3)  =  QUTPUT(OUTPNT  4  2) 

128. 

TRPROU  =  TRPROU  +  1 

129. 

OUTPNT  =  OUTPNT  4  1 

130. 

C 

131. 

C 

OBTAIN  THE  PROPER  CODE  FOR  THE  RELATIONAL  OPERATOR 

132. 

C 

REPEAT 

133. 

C 

COMPARE  INPUT  TOKEN  UITH  RELATIONAL  OPERATORS  UNTIL  MATCH 

134. 

DO  140  I  =  1,6 

135. 

140 

IF  (OUTPUT (OUTPNT) . E Q. RELOPS ( 1 , I) )  GO  TO  150 

136. 

C 

END  OF  REPEAT 

137. 

C 

138. 

150 

CONTINUE 

139. 

C 

PLACE  THE  PROPER  BRANCH  CODE,  BASED  ON  THE  RELATIONAL  OPERATOR, 

140. 

c 

IN  COLUMN  ONE  OF  THE  NEXT  TRIPLE  ROU 

141. 

TRIPLE(TRPR0U,1 )  =  REL0PS(2,I) 

142. 

c 

PLACE  'POP'  OPERATOR  IN  COLUMN  TUO  OF  THE  TRIPLE  ARRAY 

143. 

TRIPLE(TRPR0U,2)  =  POP 

144. 

TRIPLE(TRPR0U,3)  =  TRPROU  4  3 

145. 

180 

CONTINUE 

14  6. 

TRPROU  •  TRPROU  4  1 

147. 

C 

PLACE  'ADD  0  1'  IN  TRIPLE  ARRAY  FOR  TRUE  CONDITION 

148. 

TRIPLE(TRPR0U,1 )  =  ADD 

149. 

150. 

151. 

152. 

153. 

154. 

155. 

156. 

157. 

158. 

159. 

160. 
161. 
162. 

163. 

164. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 


TRIPLE(TRPR0U,2)  *  0 
TRIPLE(TRPR0U,3)  «  1 
TRPROU  =  TRPROU  +  1 

C  PLACE  'UNCONDITIONAL  BRANCH'  AND  TRIPLE  ADDRESS  IN  TRIPLE  ARRAY 
TRIPLE(TRPR0U,1 )  =  BRANCH 
TRIPLE(TRPR0U,3)  »  TRPROU  +  2 
TRPROU  =  TRPROU  +  1 
C  PLACE  'ADD  0  O'  IN  TRIPLE  ARRAY 
TRIPLE(TRPR0U,1 )  -  ADD 
TRIPLE(TRPR0U,2>  =  TRIPLE(TRPR0U,3)  »  0 
OUTPNT  =  OUTPNT  +  1 
GO  TO  10 
C 

C  FINALIZE  THE  TRIPLE  ARRAY  FOR  BOOLEAN  EXPRESSIONS.  SETMSK  U ILL 

C  CAUSE  THE  EXECUTION  PHASE  TO  SET  A  FLAG  ACCORDING  TO  THE 

C  RESULTS  OF  A  TRUE  OR  FALSE  BOOLEAN  EXPRESSION. 

400  CONTINUE 

TRIPLE (TRPROU  r 1 )  =  SETNSK 
TRIPLE(TRPR0U,2)  <=  POP 
TRIPLE(TRPR0U,3)  <=  SELECT 
TRPROU  =  TRPROU  +  1 
C 

C  IF  PRTLVL  =  0  URITE  OUT  THE  ORDERED  TRIPLES 
IF  (PRTLVL.NE.O)  GO  TO  700 
600  N  =  TRPROU 

DO  550  TRPROU  =  1,N 

550  URITE  (6,510)  (TRIPLEtTRPROU, J) ,  J  =  1,  3) 

510  FORMAT  ('  ',  T10,  17,  T25,  17,  T40,  17) 

700  RETURN 

END 
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